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ABSTRACT 



This thesis describes EMBARK, a system of computer programs 
developed to automate one of the phases of embarkation planning. 

These programs are designed to accimiulate the information and produce 
the loading forms required to prepare the loading plan for a Marine 
Corps amphibious landing. 

The system will print the following docimients: Unit Cargo 

Manifest, Cargo and Loading Analysis Form, Vehicle Summary and 
Priority Table, and Unit Personnel and Tonnage Table. 

In the past, these forms were prepared manually from information 
accumulated manually: a slow, laborious process. Today, the time 

element in warfare has become critical. Amphibious operations which 
formerly could be planned and executed over a period of months must 
now be accomplished in weeks. In order to reduce the planning and 
execution times, it is necessary to mechanize the preparation of the 
loading forms. The EMBARK system was developed to accumulate the 
necessary information, process it, and produce the loading forms. 

The methods of the system are described and illustrated. Finally, 
the use of computers to solve other amphibious planning problems is 
considered. 
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TABLE OF SYMBOLS, ABBREVIATIONS AND SPECIAL TERMS 



BCD -- Binary coded data 

CUBE -- Number of cubic feet required aboard ship for an^ item 

Floating Dump -- High priority (emergency-type) supplies, usually 
Class V and medical 

Heavy Lift — Any single cargo lift, exclusive of vehicles, weighs 
ing over 10,000 pounds 



Loading Forms 

UCM -- The Unit Cargo Manifest 
C&LA -- The Cargo and Loading Analysis Form 
VS&PT -- The Vehicle Summary and Priority Table 
UP6cTT -- The Unit and Personnel and Tonnage Table 

LPH -- Converted aircraft carriers used by USMC in amphibious 

operations as assault ships (designated Landing Platform 
Helicopter) 



Material Classes 
Class 1 
Class II 
Class III 
Class IV 
Class V 



-- Food and water 
-- Issued equipment 
-- Petroleum, oils and 
-- Special equipment 
-- Ammunition 



lubricants 



Measurement Tons -- A measurement of the volume required for cargo «, 

One measurement ton equals 40 cubic feet* 

Mobile-Loaded Cargo -- Cargo loaded in vehicles 

POL -- Petroleum, oils and lubricants 

Short Tons -- A measurement of cargo weight obtained by dividing the 
total number of pounds of cargo by 2000* One short 
ton equals 2000 pounds. 

Standard Cargo -- All cargo not falling into the heavy lift or mobile 

loaded categories 

T/A -- USMC Table of Allowances - The source of allowance information 
for items authorized the Fleet Marine Force and organized 
Marine Corps Reserve Units 

T/A Number -- A unique number assigned to each item of supplies and 
equipment 
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T/E -- USMC Tables of Equipment - items of equipment specifically 
assigned to each organization 

T/E Number A unique number assigned to identify a type of organization 

T/0 -- USMC Tables of Organization - personnel assigned to each 
organization broken down by rank and major operational 
specialty 

T/0 Number -- The same number as the T/E number for the particular 
organization 

Unitized Cargo — Cargo which has been grouped on a platform (pallet) 

or in a container in such a way as to form a single 
unit weighing less than 10,000 pounds 

Vehicle -- Any wheeled, track-laying, or combined wheeled and track- 
laying equipment* In addition, other equipment such as 
skid-mounted generators which require stowage on an area 
(square foot) basis 
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SECTION I 



INTRODUCTION 



The success of any amphibious operation is dependent in a large 
measure on complete embarkation planning which involves all those 
actions necessary to assure timely and effective loading of the 



The outstanding characteristic of successful amphibious operation 
is the rapid and effective manner in which assault troops establish 
themselves ashore <, The power and size of the landing force must be 
expanded to the maximum in the shortest possible time. This requires 
a rapid, yet orderly buildup of men and material. The extent to which 
this can be done depends primarily on the manner in which the ships 
have been loaded. Also a proper loading increases the inherent flexi« 
bility of the amphibious task force and is a key factor in assuring 
success. It is the purpose of this paper to provide a system using 
electronic data processing (EDP) techniques for the rapid and accurate 
preparation of documents required in the embarkation planning and 
loading phase of an amphibious operation. This system of programs 
will be called EMBARK. 

As an introduction to the EMBARK system, the four cardinal 
principles of embarkation planning will be outlined. 

A. Personnel, equipment and supplies must be loaded in such a 
manner that they can be unloaded at the time and in the correct 
sequence required to support operations ashore. 

B. Troops should not be separated from their combat equipment 



amphibious 




and supplies. 
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C. Unloading must be planned to proceed rapidly in the beach area» 

D. Critical units and supplies must be dispersed among several 



ships. 

Some of the other considerations which affect the embarkation 



plan are: 




1. 


Mission of the force. 


2. 


Limiting dates of the embarkation, movement and assault 
phases. 


3. 


The organization for the embarkation of the landing force 
must be compatible with the plan for the ship“tO“Shore 
movement which, in turn, must support the scheme of 
maneuver. 


4. 


Size and characteristics of the troops and naval forces 
involved. This includes the availability and character- 
istics of shipping, and quantity and types of material 
to be embarked. 


5. 


Embarkation areas and points must be selected. 


6. 


Marshalling areas may be required when camp areas are 
so located that movement to embarkation areas cannot be 
accomplished without interruption. 


7. 


The feasibility and desirability of using helicopters 
to embark the embarkation teams assigned to amphibious 
assault ships. 



Effective embarkation planning is dependent on the early receipt 
of the above information from higher authority. Detailed planning 
begins with the detemination by the Landing Force Commander of the 
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embarkation team composition, ship assignment and designation of the 
Embarkation Team Officers. 

The loading plan for each ship is prepared by the Team Embark <=* 
ation Officer under the supervision of the Embarkation Commander. 

The plans must be prepared promptly and accurately. All the figures 
shown in the wt (lbs)., cu. ft., and sq. ft. columns on the loading 
forms are the actual weight, volume and area of the items of cargo 
as loaded aboard ship. 

In this paper, when the term "loading** is used, it refers to 
*'combat loading.** Combat loading gives primary consideration to the 
facility with which troops, equipment and supplies can be unloaded 
for combat, rather than to the economical use of ship space. Also, 
in combat loading an attempt is made to load the ships so as to pro- 
vide as much flexibility as possible to meet changes in plan or other 
emergencies. 

Loading serial numbers are used to identify elements of the 
landing force which are landed prior to the general unloading. These 
serial numbers (which are not a statement of priority, but a means 
of identification) are published in a Serial Assignment Table which 
forms part of the landing plan. A single serial number is assigned 
to each unit, including its equipment (except for floating dumps), ^ 
which for tactical and logistic reasons is to be embarked entirely 
in one ship; landed as a unit at one beach or helicopter landing zone 
and landed at approximately the same time. A unites serial number 
will be referred to hereafter as a Serial. 

^The Table of Symbols, Abbreviations and Special Terms provides 
a consolidated list of all special terms used in the text. 
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To be effective, each Serial must be loaded in a way that permits 
its simultaneous unloading To achieve simultaneous unloading of 

all elements of a Serial the Embarkation Officer must spread the 
Serial throughout the various holds of the ship. Serials, therefore, 
must be composed realistically. 

The planners who organize the Serials must be careful to avoid 
improper assignment. If too many items are assigned to one serial 
number the means of landing will be held up until the entire serial 
group is unloaded or the Serial will be unloaded in increments 5 both 
are undesirable Cs J « EMBARK system, Serials will be entered 

manually on the VS&PT, after its preparation by the computer, using 
the information in the Serial Assignment Table of the landing plan. 

The various documents prepared by the EMBARK system of the pro« 
grams (shown in detail in Section III) will now be described briefly. 
Each unit or detachment embarking men, equipment or supplies aboard 
a ship prepares four loading forms: 

1. Unit Cargo Manifest; 

•2. Cargo and Loading Analysis Form; 

3. Vehicle Summary and Priority Table; 

4. Unit Personnel and Tonnage Table. 

With the exception of the Unit Cargo Manifest, these forms are sub“ 
mitted to the Embarkation Team Commander for incorporation in the 
loading plan. 

A. ^ UNIT CARGO MANIFEST (UCM) is the basic form for gathering 
accurate data on all cargo other than vehicles. It is the basis for 
preparing the Cargo and Loading Analysis form. It also provides a 
record of loading data on each container, pallet and piece of equipment 
(less vehicles) . 
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B. TOE CARGO AND LOADING ANALYSIS FORM (C&LA) provides a detailed 
breakdown of the cargo (less vehicles) by t3rpe, weight and volme. It 
shows which cargo is stowed as standard cargo, which is unitized, any 
heavy lifts, and which cargo is loaded in vehicles. The number of 
square feet involved is given for unitized cargo and heavy lifts* 

C. im VEHICLE SUMMARY AND PRIORITY TABLE (VS5cPT) lists all 
vehicles by priority for unloading, including the dimensions and weight 
for each vehicle. Included in this form are the volume and weight of 
mobile-loaded cargo, i.e., cargo loaded in vehicles. 

D. TIffi UNIT PERSONNEL AND TONNAGE TABLE (UP&TT) is a recapitu- 

lation of the information shown in the Cargo Loading Analysis, the 
Vehicle Summary and Priority Table, plus a breakdown by the number 
and rank of personnel to be embarked. The UP&TT is subdivided to 
reflect the following categories of embarkation data: (1) personnel, 

(2) Class I, (3) authorized allowances (Classes II and IV), (4) Re- 
plenishment (Classes II and IV), (5) petroleum, oil, and lubricants 
(POL - Class III) , (6) ammunition (Class V) 14 , (7) other supplies 
and (8) vehicles. 

Aviation supplies and equipment are listed separately under the 
various category headings with a detailed breakdown being given on 
the reverse side of the UP&TT in the form of a SUPPLEMENTAL UP^TT 
FOR AVIATION MATERIALS . 

Using as a basis these forms prepared by the Unit Embarkation 
Officers, consolidated tables of the foregoing are made up for all 
units embarked in a single ship. The detailed stowage and loading 
plan is then prepared from these tables and lists. 
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The following diagrams (Figure 1) indicate the methods used by 
the EMBARK system to prepare the necessary tables and lists required 
in embarkation planning. 
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SECTION II 



SEQUENCE OF PLANNING 

Following the receipt of the initiating directive for an amphib- 
ious operation, the landing force embarkation planning begins at all 
echelons of command and proceeds concurrently. Usually, the major 
steps are accomplished in the following sequence: 

A. Establishment of liaison between corresponding naval and 
troop levels of command. 

B. Provision of planning data by the Amphibious Task Force 
Commander concerning the personnel and material of naval and other 
forces to be embarked with the landing force. 

• C* Determination by the Landing Force Commander of his assault 
and follow-up shipping requirements, and submission of these require- 
ments to the Amphibious Task Force Commander. 

D. Allocation of shipping by the Amphibious Task Force Commander. 

E. Distribution of each ship^s loading characteristics to the 
Landing Force Commander by the Amphibious Task Force Commander. 

F. Establishment of the organizations for embarkation by the 
Landing Force Commander, including the designation of the Embarkation 
Team Commanders. 

G. Establishment of the navy organization for the embarkation 
by the Amphibious Task Force Commander. 

H. Allocation of shipping to subordinate echelons of the landing 
force by the Landing Force Commander. 

I. Selection and preparation of the embarkation areas. 
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J. Determination of the control, security and communications 
facilities required during embarkation. 

^ K. Landing Force Commander provides information on the number 
of days of fuel required, amount and type of ammunition, and the 
objectives assigned to each Embarkation Team Commander. This enables 
the Team Commander to decide what equipment he will require. 

» L. Development of berthing and loading schedules, and schedules 
for movement of personnel and material to embarkation areas. 

• M, Preparation, review, approval and promulgation of the detailed 
embarkation and loading plans. 

The EMBARK system was designed to facilitate this final phase 
of planning. The system will accumulate the information required to 
prepare the Unit Cargo Manifest (UCM) , Unit Personnel and Tonnage 
Tables (UP6cTT) , Cargo Loading and Analysis Form (C&LA) , and Vehicle 
Summary and Priority Table (VS&PT) . It will produce the forms for 
each unit, and the unit forms can be used to prepare the consolidated 
forms for the loading plan. Figure 2 shows the sequence of preparation 
and interrelationships of the loading forms, tables and diagrams com- 
prising the completed loading plan. 

The complete loading plans for each ship consist of the following 
forms, tables and diagrams: 

1. The cover page of the loading plan gives the name of the 
ship and lists the embarking troop units. The Embarkation Team 
Commander indicates his approval of the tentative plan by signing 
this cover page. The completed plan is then delivered to the 
Commanding Officer of the ship, who, in turn, indicates his approval. 
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2. The Consolidated Embarkation and Tonnage Table lists all 
units embarked in a single ship together with the total personnel, 
total volume (cu, ft), area (sq, ft.) and total number of short tons 
of cargo. 

3. The Consolidated Unit Personnel and Tonnage Table is a 
consolidation of the individual unit UP6cTT*s in the same format as 

the individual tables. It provides an accurate tabulation of personnel 
to be embarked and the exact amount and type of cargo to be loaded. 

4. The Consolidated Cargo and Loading Analysis is a con- 
solidation of the unit C&LA*s. It provides the basis for stowage 
plans. In its final form the consolidated C&LA is, in fact, a com- 
plete listing of detailed stowage information of all cargo except 
vehicles. It is of vital importance to logistic control personnel 
during the ship-to-shore movement since it shows the stowage location 
of all cargo for each ship. 

5. The Consolidated Vehicle Summary and Priority Table is 
a listing according to the unloading priority of all vehicles to be 
embarked in the ship. The unloading priority is determined by the 
Embarkation Team Commander after consideration and reconciliation . of 
the unloading priorities desired by each embarking unit. He must also 
ensure that the priorities are in accordance with the priorities 
established by the landing plan. The Consolidated VS6cPT is the basis 
for vehicle stowage plans. It is of value to persons concerned with 
the loading, unloading, and logistic control during the ship-to-shore 
movement . 
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6. The Consolidated Vehicle Table is a summary of all vehicles 
listed on the Consolidated VS&PT by types and by units to which they 
belong. It can be prepared easily from the unit VS&PT listings pro- 
duced by EMBARKD. 

7. Stowage diagrams show graphically the placement of cargo 
aboard ship. These diagrams give the exact location of vehicles and 
cargo within each cargo compartment. Their preparation is greatly 
simplified using the information provided by EMBARKD, 
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LOADING PLAN DIAGRAM 




Figure 2 



SECTION III 



THE EMBARK SYSTEM 

The EMBARK system consists actually of three computer programs 
(EMBARKDjMOUNTOUT and TABLE) which calculate and print summary data 
in the form required for preparation of the detailed loading plans of 
an amphibious operation. 

The main program, EMBARKD, which prepares the forms uses the 
following major subroutines: 

NAME PURPOSE 



UCM 


Prepares the Unit Cargo Manifest 


VSP 


Prepares and prints the Vehicle 
Summary and Priority Table 


UPT 


Prepares and prints the Unit Per= 
sonnel and Tonnage Table 


CAOT)LA 


Prepares Cargo and Loading Analysis 



These subroutines, in turn, use one or more of the following minor 
subroutines: 



CLASS V 


Computes ammunition requirements 


RATIONS 


Computes ration requirements 


WATER 


Computes water requirements 


PETROL 


Computes petroleum, oil and 
lub r i cant re qu i r ement s 


EQUIP 


Computes equipment requirements 


WUCM 


Prints Unit Cargo Manifest 


WCANDLA 


Prints Cargo Loading and Analysis 
Form 



The two additional programs provided by the system are MOUNIOUT, which 
will print out a Table of Equipment for an infantry regiment and TABLE, 
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which will print -out the complete USMC Table of Allowances. Each 
program can write a report on the BCD output. tape. (The tape assign- 
ments are as shown in Appendix A,) 

The EMBARK system was programmed in Fortran II language and was 
designed to operate in conjunction with the Control Data Corporation 
(CDC) 1604 computer operating system called ^''Fortran ^60 Monitor" 

EMBARK was programmed for a CDC 1604 computer having four tape units 
and off-line, card-to-tape , tape-to-printer facilities. The system 
requires the use of approximately 27,000 of the available 32,768 cells 
of memory. Emphasis was placed on achieving system flexibility, making 
the input preparation as simple as possible, and producing outputs 
that could be used directly as unit loading forms. 

All of the equipment, supplies, units and ship types described 
in the input are specified by their standard Marine Corps nomenclature 
equipment and supplies by T/A number, units by T/0 number, ship type 
by standard ship designators, etc. 

A description is provided of the programs of the EMBARK system 
in terms of their input requirements, output reports, and computational 
procedures. The four main subroutines - UCM, UPT, VSP and CANDLA - 
are also described in detail, flow diagrams being included for them as 
well as for the programs. Since the remaining six subroutines -- 
CLASS V, RATIONS, WATER, PETROL, EQUIP, WUCM and WCANDLA merely re- 
arrange information or print data, their flow diagrams or descriptions 
are not included. However, Fortran language listings of all these 
minor subroutines are given in Appendix B. Figure 3 shows the inter- 
relationships between EMBARKD and the various subroutines. 
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The information needed to run problems on the computer is given 
in Appendix A, which includes a description of the additional control 
cards, tape assignments, and machine operating instructions. 

All the tables of data, basic and computed, are stored in COMMON 
storage to permit greater utilization of the 1604 memory and to avoid 
lengthy CALL statements. 
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SCHEMATIC OF INTERRELATIONSHIP 
BETWEEN THE SUBROUTINES OF EMBARKD 



EMBARKD 



UCM 



EQUIP 

CLASS V 

PETROL 

RATIONS 

WATER 

WUCM 

PETROL 

WUCM 



CANDLA 



VSP 



UPT 



PETROL 



WCANDLA 



1. Verticle relationship - subroutines 
use the information from those 
shown above them. 

2. Subroutines always called are 

indicated by solid line . 

3. Subroutines which may be called if 
required are indicated by dotted 
line - - 



Figure 3 
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SECTION IV 



PROGRAM EMBARKD 

Purpose 

Program EMBARKD calculates and prints the loading forms required 
for an amphibious operation loading plan. The program acts as a 
driver for the eleven subroutines: UCM, VSP, UPT, CANDLA, CLASS V, 

RATIONS, WATER, PETROL, EQUIP, WUCM and WCANDLA. ■ The subroutines 
calculate the necessary information and actually print out the loading 
forms. Figure 3 shows the order in which the various subroutines 
are called. 

Input Data 

An input tape of the Table of Allowances and CLASS V information, 
this information is read into memory before calling the first sub- 
routine /jLsJ . Input consists of the normal T/E decks, each preceded 
by the ^four ^Required" cards. See Appendix A for T/E deck input 
format. 

Restrictions 

Must be run under "Three -argument Monitor" control. See 
Appendix B. 

Methodology 

EMBARKD loads the Table of Allowances and CLASS V information into 
memory and then calls the subroutines which compute and print out the 
loading foms. Figure 4 shows the flow chart of EMBARKD and Figure 
4A^the Fortran ’60 listing. 
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Output 



Examples of the output of EMBARKD are shown with the subroutines 
that actually print the unit loading forms. 

Timing 

A formula for EMBARKD running time cannot be given; however, 
the following experience may be of interest. It takes approximately 
three minutes to compile the program and takes an additional two 
minutes to print out the loading forms for an artillery regiment. 
Running time depends on the number of T/E decks for units in the 
embarkation movement. 

1. SUBROUTINE UCM 
Purpose 

To compute and print out a Unit Cargo Manifest for an organi- 
zation of any size. The print-out is provided actually by the sub- 
routine WUCM. Also utilized are subroutines WATER, EQUIP and PETROL. 
The computed information is accumulated as input to subroutine UPT. 
Input Data 

Input is the normal T/E deck plus the four leading cards that 
must always be included. See Appendix A for input card format for 
the T/E deck. 

Output Data Tapes 

BCD output of UCM to be printed off-line, e.g., on an IBM 1403. 
This is the first output document printed out for any organization. 
Restrictions 

The T/E deck must not exceed 424 cards in total, however, T/E 
decks may be divided into segments of 420 cards with the four leading 
cards included in each segment. 
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Methodology 



UCM loads the entire T/E deck into memory accumulating the T/A 
number of the equipment being embarked, the quantity of that equipment 
and the Vehicle Registration Number* The subroutine then matches the 
incoming T/A number of the T/E card with that number in store and 
extracts the number of square feet, cubic feet and the weight of the 
equipment. The program tests to see if the item weighs over 10,000 
pounds. If it does, the subroutine computes an approximate height 
and stores this with the weight, ntimber of cubic feet and number of 
square feet under Heavy Lifts. It also checks to see if an item has 
an area listed although it weighs less than 10,000 pounds. If so, 
the item is assigned to a Heavy Lift category. If the item is not a 
Heavy Lift, the subroutine then tests to see if the item weighs over 
100 pounds; if so it stores the number of cubic feet and weight under 
Mobile -Loaded Cargo. If over 100 pounds and not a Heavy Lift, the 
item is considered as Standard Cargo and the number of cubic feet and 
weight are stored as Standard Cargo. 

The subroutine then goes back and checks the next T/E item and 
repeats the cycle until all items have been handled. Then, the T/A 
numbers are broken down into groups by UP6cTT line number classification 
and a Box Number is assigned to each item included in the UP&n line 
number group. The subroutine reads the description from the infor- 
mation on the T/A card in memory, and totals all the Volume and Area 
information by LT&IT’ line number. 
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The subroutine WUCM then prints out this information, showing for 
each T/A number the UP&TT line number. Box Number, Description, number 
of Cubic Feet and Weight, as well as Square Feet and Height if item 
is a Heavy Lift. It prints totals for all UP&IT line numbers of the 
weight and number of cubic feet of those T/A numbers making up one 
UP&TT line category. 

Figure 5 shows the flow chart for subroutine UGM and Figure 5A, 
the Fortran '60 listing. 

Output 

The output written by WUCM is the Unit Cargo Manifest, a sample 
of which is shown in Figure 5B. 

2. SUBROUTINE VSP 
Purpose 

To compute and printout the Vehicle Summary and Priority Table 
for an organization of any size. The computed information is also 
accvimulated for input to subroutine UPT. 

Input Data 

Input is the normal T/E deck with the four leading cards that must 
always be Included. See Appendix A for T/E deck card input format. 
Output Data Tapes 

BCD output of VSP to be printed off“line, e.g., on an IBM 1403. 
Restrictions 

The T/E deck must not exceed 424 cards in total, however, T/E 
decks may be divided into segments of 420 cards with the four leading 
cards included in each segment. 
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Methodology 



VSP reads the T/A Xumbers length, width, quantity and vehicle 
registration nxjmber from the incoming T/E card. Then it matches up 
with that T/A Number in store and extracts the information as to the 
weight, volimie (cubic feet) and area (square feet) required for the 
vehicle. Next, the subroutine calculates the height of the vehicle 
by dividing the volume by the area. The vehicles are assigned priority 
numbers based on the order in which the cards are read by the computer. 
The subroutine then extracts the carrying capacity of the vehicle from 
the information under that T/A number in store, and assumes this to be 
the weight of cargo loaded in the vehicle. (Each vehicle is loaded to 
capacity.) Then the gross weight is calculated by adding to the net 
weight of the vehicle the weight of the cargo. 

Having read the unit and ship information from the leading card 
of the T/E deck, the subroutine now prints out the Vehicle Summary 
and Priority Table listing all the vehicles by priority for unloading, 
including dimensions and weight for each vehicle. 

Figure 6 shows the flow chart for VSP and Figure 6A, the Fortran ’60 
listing. 

Input 

See Appendix A for card input format. 

Output 

The output written by VSP is the Vehicle Summary and Priority 
Table, a sample page of which is shown in Figure 6B. 
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3. SUBROUTINE UPT 



Purpose 

To consolidate the information contained in the Unit Cargo 
Manifest and in the Vehicle Summary and Priority Table, plus a 
breakdown by the number and rank of personnel to be embarked. The 
subroutine prints out the UP&TT, subdividing the information into the 
personnel breakdown, classes of supplies indicating the total number 
of cubic feet and weight of each subclass, and the total number of 
square feet, cubic feet and weight of the total vehicles. The sub- 
routine computes the total number of short tons and measurement tons 
of the cargo to be loaded. 

Input Data 

A T/E deck showing the T/0 breakdown of personnel for units 
embarked. Also, the information which has been stored in the computer 
by the UCM and VSP subroutines after processing the T/E decks for those 
units embarked. 

Output Data Tapes 

BCD output of the UP&TT to be printed off-line, e.g., on an IBM 

1403. 

Restrictions 

The T/E deck must not exceed 424 cards in total, however, the 
decks may be divided into segments of 420 cards with the four leading 
cards in each segment. 
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Methodology 



UPT reads from the leading cards coming in with the T/E deck the 
breakdown of perso:ri!nel for each unit. Also it obtains, from sub- 
routines UCM and VSP, information on the number of cubic feet, weight 
and ntimber of square feet of all the cargo as broken down into cate- 
gories of UP6cTT line number. The subroutine then divides the total 
weight of all items by 2000 to determine the number of short tons of 
cargo and divides the total number of cubic feet of all items by 40 to 
determine the number of measurement tons of cargo. 

The subroutine prints out the Unit Personnel and Tonnage Table 
showing a breakdown of personnel, supplies and equipment, vehicles 
and grand totals of number of short tons, number of measurement tons, 
number of square feet, ntraiber of cubic feet and weight (in pounds) of 
all cargo to be loaded. 

Figure 7 shows the flow chart for UPT and Figure 7A, the Fortran *60 
listing. 

Input 

See Appendix A for the card input format. 

Output 

The output written by UP&TT is the Unit Personnel and Tonnage 
Table, a sample page of which is shown in Figure 7B. 

4. SUBROUTINE CAKDLA 
Purpose 

To compute and print out The Cargo Loading and Analysis form for 
an organization of any size. The print out is actually provided by 
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the subroutine WCANDLA. 



Input Data 

Input is the normal T/E deck plus the four leading cards that 
must always be included. 

Output Data Tape 

BCD output of CANDLA to be printed off-line, e.g., on an IBM 1403. 
Restrictions 

The T/E deck must not exceed 424 cards in total, however, T/E 
decks may be divided into segments of 420 cards with the four leading 
cards included in each segment. 

Methodology 

CANDLA loads the entire T/E deck into memory as in subroutine 
UCM and proceeds to classify the incoming information by the same 
method as that used in subroutine UCM. In addition to the information 
produced by subroutine UCM, CANDLA also calculates the number of rounds 
of ammunition, gallons of liquid, number of rations and the number of 
heavy lifts required. It totals each page and accumulates grand totals 
of the cubic feet and weight of standard cargo, the number of heavy 
lifts, square feet, height, number of cubic feet and weight of unitized 
cargo and heavy lifts. CANDLA also totals the number of cubic feet 
and weight of mobile -loaded cargo. 

The subroutine WCANDLA then prints out this information showing 
for each T/A number the UP&TT line number, unit, description, number 
and type container, number of rounds of ammunition, gallons of liquid, 
cubic feet and weight of standard cargo, number of lifts and square 
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feet, height, cubic feet and weight of heavy lifts. It also shows 
for each T/A number the number of cubic feet and weight of mobile 
cargo. Page totals and grand totals of cargo are also provided. 

Figure 8 shows the flow chart for subroutine CANDLA and Figure 
8A,the Fortran '60 listing. 

Output 

The output written by WCANDLA is the Cargo and Loading Analysis, 
a sample of which is shown in Figure 8B. 
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PRCGRA^' EM6ARKC 



9?Kf«§^9^;i?N?5>lT50!,.^ge¥M 



1CA( 1750) jFIjELC 17?0)fGAL( 175C) ci ui i f ou ) fNib(4ZUi *nta i up o ) 
2UNIT(420jf IQTY(420)» MLD(4 20 )tLN(33l)fBA(33l|.0(3^1)« 

3PRIN(331 ) , FUS(331 ),XFUS(Z31 ),GTW(331 7wTV( 3^1 ffcUvVyi) . 
4LNREF(331 ) ,SCUV(50),CL'UPT(34KwTUPf (39),SH P(4 ICLASS (2) ! 

5NTCV(331 )fMAV(331 ) tXLC( 100)»KTA( IOC) « SUN (7) «MEN( 13)« TEMPJA) 

6STKNBR(2),V,CESC(6),FLAGS(4);iWv(50);SWTV(50r ‘ ^ i 

in^TT^Tr>U''cr'^i^^^Pf!'^S!^®»^^»^'''»CA»FUEL,GAL,DESC,NTE,NTA, I 

,XFUS,QTYV, WTV.CUVI 

2 lN R EF » BACU 1 B A WT » CO A WT » CG A CU # I T A Vf S WTV • SCUV »6uUP T • WTLiP T. ' 



i ) 



N2=0 

02 = 0 . 

DC 33 J=1 , 1750 
ITANBR(J)=N2 
ISTDPKG( J)=M2 
CESC( J )=2020202020202C20 
SC( J)=C2 
CU(J)=D2 
WT(J)=02 
CA(J)=D2 
,, FUEL(J)=02 
33 GAL(J)=02 
K=1 
J=-1 
1 J=J+1 



j I 



READ TAPE 3 1 TANBR ( J ) .STKNBR , CN8R . UN ISS, I STDPKG ( J ) , ST PROC t SC ( J ) 
CA J),CTT,T, FUEL (J), GAL (J), TEMP, W0ESC,XL0(K) 



ICU(J) ,WT( J ) ,Lfl» 

DESC( J) = TENP( 1 ) 

^ IF (XLO(K)) 5,5,6 

6 KTA(K)=ITANBR(J) ; 

K = K + 1 i V .. 

5 IF( ITANBR( J)-99999) 1,4,4 j ‘ ! 

4 N1=J-1 ; 

K1=K-1 } 

. DO 44 1=1 ,331 

rLAG— 0* i 



FLAG2=0. 

DC 7 1=1,331 
PRIM( I )=PRIM( I )/100. 
, FUSd )=FUS(I)/100. 

7 XFUS( I)=XFUS( n/lOO.' 

1000 CALL EQUIP 
NC = 0 

DC 8 1=1 ,39 
^ CUUPT(I)=0. 

8 WTUPT(I)=0, 

SCU=0. 

SWT=0. 

SC=0. 

HT = 0. 

HCU=0. 

HKT=0. 

XMCU=0. 

XMWT*0. 



^ 1 



Figure 4A 
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CALL CLASSV 
CALL UCM 

IF(FLAG2) 21,20,20 

20 CALL PETROL 

21 CALL VSP 

CALL UPT 
CALL CANOLA 

R77 



Figure 4A (corst.) 
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SUBROUTINE UCN 



00 I PENSION IT/»NBR( 1750), ISTOPKGI 17 5C ) , SO ( 1 750 ) ,CU ( 1 750 ) , WT ( 1 750 ) 

1CA( 1750) ,FUEL( 17W),G/)L( 1750 ) ,DESC( 1750) ,NTE (l»20) ,NTA (420) , 
2UNIT(420 ) , IQTY(420) , MLD(420 ) , LN ( 33 1 ) , BA ( 331 ) ,0( 33 1 ) , 

3PRIM(331 ),FUS(331),XFUS(331),QTYV(331 ),WTV(331 ),CUV(331) , 
4LNREF(331), I TAV ( 50) , Swfv ( 50 ) , 

5SCUV(50) ,CUUPT(39),WTUPT(39), 

6SHIP(4), 

7 CLASS(2),NTOV(331 ),NTAV(331 ), 

8 XLD( 1C0),KTA( 100 ), 

9 SUM(7), REN( 13) ,TEMP( fc) ,STKNBR(2) ,WDESC(6) ,FL AGS (4) 

OCONMON ITANBR, ISTOPKG,SC,CU,WT,CA, FUEL,GAL,OESC,NTE,NTA, s 
lUNIT, IQTY, EG,MLO,LN,BA,C,PRIM,FUS , XFUS,QTYV,KTV,CUV, I 

2LNREF,BACU,BAWT,C0AWT,C0ACU, ITAV, SWTV,SCUV,CUUPT,WTUPT, 
3CUUPTT,WTUPTT,STONS,XTGNS,S(3UPT33 ,S(3UPT39,DOA,HRSFUEL, p 
4DATE,SHI P,CRG,CLASS,NTCV,NTAV,N1, N0,K1,KV,LL, 
5LINE,NPAGE,XLD,KTA.K1, II, JJ,QRATS,NRATS, SUM, KEN, FLAGS 
ECUIVALENCE ( MEN ( 1 ) , MC7 ) , ( MEN ( 2 ), M06 ) , ‘ 

1 (MEN(3), M05) , (MEN(4),MC4 ),(MEN(5) ,M03), 

2 (MEN(6 ),M01 ) , (MEN(7).MW) , (MEN(8), ME7), 

3(MEN(9),ME5),(MEN(10),ME1),(MEN(1 1),M0T), ' 

4(MEN(12) ,MET),(MEN(13),MT0T), t 

5 (FLAGS! 1 ), FLAG), (FLAGS (2),FLAG2) , 

6(FLAGS(3),FLAG3) ,(FLAGS(4),FLAG4) 



LINE=73 

PRINT 1 CLASS,ORG, SHIP, CATE 

1 F0RMAT(1X,2A8 , // 47X,25HUNIT CARGO MANIFEST ( UCM ) 
17HUNIT - ,A5,27X,7HSHIP - , ( 4 A8 ), 24X , 7H0ATE - ,A8,//) 
LINE=LINE+7 



t//,lX, 



9 DC 50 JJ = 1 ,N1 
DC 50 II=1,M1 

IF(NTA(II)-ITANBR(JJ) ) 50, 10, 50 
10 IN=IQTY(II) 

(2=IQTY( I I ) 

IF(NTA( I 1 1-10999 155,55,1 1 



1 1 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 
29 



IF(NTA( I I )- 12999)60,60,1 2 
l-13999)64V64, 13 



IF(NTA(II ) 

IF(NTA( I 1 1-14999)62,62,14 
IF(NTA( 1 1 1-15999 166,66,15 
I F(NTA( I 11-16999)68,66, 16 
IF(NTA( II 1-29999 ) 60, 6C, 17 
IF(NTA( I I 1-39999)64,64, 18 
IF(NTA( I I) -40999 162,62, 19 
IF(NTA( I 1 1-4 1999)62,62,20 
IF(NTA(I I 1-42999)75,75,21 
IF(NTA(T 11-43999)62,62,22 
IF(NTA(I I 1-49 999 162,62,23 
IF(NTA(I I)-59999)66,66,24 
IF (NT A( II 1-69999)68,66,25 
IF(NTA( I I 1-79999 ) 70, 7C, 2 6 
IF(NTA( I 11-82999 171,71,2? 
IF (NTA( II 1-83999172,72,26 
IF(NTA(I I 1-84239 173,73,29 
1F(NTA( I 1 1-84519 173,73,30 

30 IF(NTA(II1-84999173,73,31 

31 IF(NTA( I 1 1-85999 174,74,32 

32 IF(NTA( II 1-86999176,76,50 
60 IF(0RG-UNIT(KK1 161,59,61 
55 L=1 

GO TO 58 
59 L=5 

GC TO 58 
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61 L = 8 

GC TO 58 

62 IF(CRG-UNIT(KKn63,59,63 

63 L=10 

GO TO 58 



Figure 5A 
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6U 

65 

66 
67 

60 

69 

70 



71 

72 

73 

74 

75 

76 
58 



I F(0RG-UNIT(KK) >65,59,65 
GC TO 58 

IF (ORG-UNIT(KK) >67,59,67 
GO TO 58 

IF (CRG-UNIT(KK> >69,59.69 
L = 12 

GO TO 58 
FLAG2=-1. 

CALL PETROL 
L = 25 

CALL WUCK 
L=26 

58 



t ! 

' I- 



GC TO 
L=16 
GC TO 
L = 17 
GC TO 
L=18 
GC TO 
L=19 
GC TO 
L=13 
GO TO 
L=20 



58 

58 

58 

58 

58 



; / 
/ ' 



LL = L 

CALL WUCM, 

CyUPT(L>=CUUPT(L > + SUMSCU4SUMHCU+SUMXMCU 
WTUPT(L>=WJUPT(L > + SUMSWT4SUPHWT+SUMXMWT 
, CO 100 L=1 ,7 
TOO SUP(L>=0. 

50 CONTINUE 

CUUPT(3>=CUUPT( 1 >+CUUPT( 2 > 

WTUPT(3>=WTUPT( 1 >+WTUPT(2> 

V«TUPT (6> = WTUPT(4 >+WTUPT( 5 > 

CUUPT(6>=CUUPT(4>+CUUPT( 5 > 

DO 80 L=8, 14 

WTUPTI 15>=WTUPT( 151+WTUPT (L> 

80 CUUPT( 15>=CUUPT( 15>+CUUPT(L> 

DO 81 L=16,22 

WTUPT(23>=WTUPT(23>+WTUPT(L> 

81 CL'UPT(23> = CUUPT(23>+CUUPT(L> 

OCyUPT (38 >-CUUPT ( 3 > +CUUPT ( 6 > +CUUPT ( 1 5 > +CUUPT ( 23 > +CUUPT 
ICyyPT 24 >+CUUPT( 33>+CLUPT( 34>+CUJPT(37> + CUUPT(28> 
0WTUPT(38 >=WTUPT( 3 1+WTUPT ( 6>+WTUPT ( 1 5 > +WTUPT { 23 > +WTUPT 
1 WTUPTI24 > + V«TUPT(33>+WTUPT (34>+WTUPT(37> + WTUPT(28 > 

. WTUPTT = WTUPT(38>+WTUPT(39> 

CUUPTT = CUUPT(38>+CUUPT(39> 

SCUPT = SCUPT38 ♦ SQUPT29 . 

ST0NS=WTUPTT/2000. 

XTCNS=CUUPTT/40. 

END 
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(27> + 
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UNIT CARGO MANIFEST (UCH) 

LST-10S« 



\A-^ 

**• * 


UNIT • ATH 

4-01-64 
UP^TT NBR 
LIN NO 


BOX 


OESC 

\ 

\ 


V 


SHIP - ST CLAIR COUNTY 


- 




1 


MEAL. CO 










-e-^- 



STANOARO CARGO 
CUFT WTCLBi 



UNITIZED CARGO 

HEAVY LIFTS 
SOFT HT CUFT WT 



CUFT 



MOBILE 

LOAD 
MT(L6 



2lK6**5o5oIo 

23irO**56ioIo 



• 0 



• 0 



• 0 



• 0 



• 0 



LIME TOTALS 



• 0 



• 0 



• 0 



• 0 



< *■ 






8 

I 

8 

8 

8 

S 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 



I 

8 

8 

• 



AMPLIFIE 

ANTENNA 

AXIE RL- 

CHANNEL 

CONTROL 

FRECUENC 



8 

84 



W 






# • • 



• # # 






• m.%- 



LINE TOTALS 
^ • # • • • • • • 



BA.4 21162*0 928 



• 0 
• 0 
• 0 
• 0 
• 0 
• 0 
• 0 
• 0 
• 0 
• 0 
.0 
• 0 
• 0 
.0 
• 0 
• 0 
.0 
• 0 
• 0 
• 0 

3865.0 

3865.0 

.0 

.0 

.8 

.0 

.0 

:8 

.0 

.0 

.0 

.0 

*0 

.0 



4.8 

7.8 

.0 
• 0 

10*0 

5.7 

.0 
• 0 
.0 

16.0 

4.0 

3.0 

.0 

.0 

.0 

4.0 
16.0 

6.4 

75.0 

.0 

.0 

.0 

.0 

20.0 

36.0 

.0 

10.0 

.0 

6.8 

16.0 

m ^ 

10:1 

14.0 

2.0 
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Figure 6 
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SUBROUTINE VSP 



5C),SQ( 1750) , cun 750 ),WT( 1750) f 
C( 1750) ,NTE( 420). NTA (»l20) , 
LN(331),BA(331),D(331)f 



00 1 MENS ION ITANeR(1750),ISTDPKG( 17 
1CA(1750) ,FUEL( 1750), GAL ( 1750) ,DES 
2UMT(420) , IQTY(420), MLD(420 

3PRIM(331 ),FUS(331) ,XFUS(331 ),QTW 
4LNREF (331 ) , 

5SCUV(50) ,CUUPT(39),WTUPT(39), 

6SHIP(4), 

7 CLASS(2) ,NTOV( 331 ),NTAV( 33 

8 XLD( 1C0),KTA( 100 

9 SUM (7), MEN ( 1 3 ) , T EMP ( 6 ) ,S TKNBR ( 2 ) , WDESC ( 6 ) , FL AGS (4 ) 



ItLlNIOjI I If 

(331 ),WTV(331 ) ,CUV(331 ), 
ITAV(50) ,SWTV 



(50) 



1 )f 

), 



OCCMMCN ITANER, ISTDPKG,SQ,CU,WT,CA 
lUNIT, IQTY, EG,MLD,LN,BA,D,PRIM,FUS 
2LNREF,BACU,BAWT,OOAWT,COACU, ITAV, 
3CUUPTT,WTUPTT,STCNS,XTCNS,SCUPT38 
4DATE,SHIP,CRG,CLASS,NT0V,NTAV,N1, 
5LINE,NPAGE,XLD,KTA,K1 , 1 1 , JJ,QRATS 



, FUEL, GAL, DESCfNTE, NTA, 
, XFUS,QTYV,WTV,CUV, ^ 
SWTV,SCUV,CUUPT,WTUPT, 



5 ViT V f SC UV fCUUr T t WTUr T 
, SQUPT39,D0A,HRSFUEL , 
N0,M1,KV,LL, 

,NRATS, SUM, MEN, FLAGS 



I I f I n CiM llOIfnlUlIt 

( FLAGS ( 1 ), FLAG), ( KaGS ( 2 ) , FLAG2 ) , 
, FLAG3),(FLAGS(4),FLAG4) 



EQUIVALENCE (MEN( 1 ) , M07 ) . ( MEN ( 2 ), 
1 (MEN(3),M05), (MEN( 4) ,M04K (MEN( 5) 
2(MEN(6),M01 ) , (MEN(7),MW) , (MEN(8). 
3 (MEN(9),ME5) , (MEN( 10) ,MEU , (MEN (I 
4(MEN( 12) ,MET1> (MEN( 13),MTgT) 

6(FLAGS(3) 

SSCP=0. 

SCUP=0. 

SWTP=0. 

SXP=0. 

SGWTP=0. 

SSCG=0. 

SCUG=0. 

S)>TG = 0. 

SXG=0. 

SGWTG=0. 

K=1 

NPAGE =1 
PRINT 99 
FCRMATdHl ) 

PRINT 98 CLASS, 

FORMAT! IX, 2A8 
PRINT 97 ORG,SHlP 
970FCRMAT(39X43HVEHICLE SUMMARY 
1 7HUNIT - ,A5//1X, 7HSHIP - 
PRINT 96 

960FCRM,AT( 1 X, 44HUNLOAC LANDING 
122HLENGTH WIDTH HEIGHT 32HSQFT 
216HGR0SS WT WHERE /IX, 



M06) , 

,M03), 

MET), 

1 ),M0T), 



i 



; i 

i 1 



■ i 



I 



99 



98 



NPAGE 

,95X, 4HPAGE, 



13/) 



AND 

,4A8/ 



) 



TYPE 

CUFT 



OF 



95 



3 

422H 
516H(LB) 

6 

722H 

816HVEHICLE 
PRINT 95 
FORMAT! 120H 



45HPRIORITY SERIAL 

32H 

STOWEO/lX, 
45HNUMBER NUMBER 

32H 

) 



VEHICLE 



TABLE 


(VS+PT) 


//IX, 


UNIT 


VEHICLE 


NET WT 


CARGO! LB)> ,2X, 

REGISTRA- 


(LB)OF 


LOADEO IN ,2X, 

TION NO. 


VEHICLE 


VEH ICLE 


f 2X f 



1 



OF 

OF 



T/A 

T/E 



5 

6 
2 

3 

4 

11 

GET 



100,5, 100 



LINE=12 

N1 = NUMBER 
Ml = NUMBER 

DC 100 1 = 1, Ml 
DC 100 J=1,N1 
IF( ITANBR( J)-NTA( I ) ) 

IF(SQ(J)) 100,100,6 
IF(30000-ITANBR( J) ) 2,11,100 
IF (39999-ITAN6R(J) ) 3,11,11 
IF (50000-ITANBRU) ) 4,11,100 
IF (69999-ITANBR ( J ) ) 100,11,11 
HT=CU( J)/SC( J) 

CARRYING CAPACITY OF VEHICLE 



TEMS 

TEMS 



> i, ) 

• I 



; i 

i 



Figure 6A 
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13 

12 



DC 12 L=1,K1 * , 

IF (NTA( n-KTA(L) ) 12,13,12 
X^CBWT=XLD(L) 

CCMINUE 

GWT=XMOBWT+WT(J) 

PRINT 7 K,CESC(J),UNIT( n,MLD(I), HT, $Q { J ) ,CU ( J ) , WT ( J) ,XMOBWT,GhT 
FORNAK lOX, I3,5X, A8,MX,A5,2X, A6, 13X,3F7.1 ,3F10. 1, lOX) , 



•! i 



LINE*LINE+1 
SSCP=SSQP+SQ( J) 

SCUP=SCUP+CU ( J) 

SKTP=SWTP+WT( J) 

SXP=SXP+XMCeWT 
SGWTP=SGWTP+GWT 
SSCG=SSQG+SSCP 
SCUG=SCUG+SCUP 
SXG=SXG+SXP 
SWTG=SWTG+SWTP 
SGWTG=SGWTG+SGWTP 
XP0BWT=0. 

GWT=0. 

HT = 0. 

IF (77-LINE) 9,9,100 . 

9 PRINT 10 SSQP,SCUP,SWTP,SXP,SGWTP :i 

SSCP=0. ^ 

• SCUP=0.- •] 

SKTP = 0. ;■ 

SXP=0. 1 

SGWTP=0. i 

10 F0R^^AT(68X,F4.1.3F10. I.ICX) 

PRINT 10 SSQG,SCUG,SWTG,SXG,SGWTG * 

PRINT 8 

. 8 FCRMAT(/U0X,33HBLAN0/HANSEN THESIS -EMBARK- 1964 ,1H1) 

NPAGE=NPAGE+1 
PRINT 98 CLASStNPAGE 

PRINT 96 I 

PRINT 95 
LINE=6 

100 CONTINUE 
RETURN 
END 
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VEHICLE SUMMARY AND PRIORITY TABLE (VS+PT) 



UNIT - HI551 






SHIP ST CLAIR COUNTY LST-1C96 



UNLOAD 

PRIORITY 

NUMBER 


LANDING 

SERIAL 

NUMBER 


TYRE NO 

VEHICLE VEH 


UNIT 


VEHI:LE LENGTH 
REGISTRA- 
TION NO. 


WIDTH 


HEIGHT SOFT 


CUFT 1 


NET WT CARGO(LB) 
(LB)OF LOADED IN 
VEHICLE VEHICLE 


GROSS WT 
(LB) OF 
VEHICLE 


WHERE 

STOWED 




i 


1 


H1551 






5.1 


33.0 


168.2 


880.0 


.0 


886.6 






2 


1 


H1551 






3.3 


30.0 


98.0 


790.0 


.0 


790.0 






3 


1 


H1551 






3.6 


43.0 


155.4 


565.0 


500.0 


1065.0 






4 


1 


H1551 


300A 





5.0 


104.0 


520.0 


1340.0 


1500.0 


2840*0 






- 5 


1 


H1551 


301D 




5.0 


104.0 


520.0 


1340.0 


1500.0 


2840.0 


• 




6 


1 


H1551 


302F 




5.0 


104.0 


520.0 


1340.0 


1500.0 • 


2840.0 






7 


1 


H1551 


303H 




5.0 


104.0 


520.0 


1340.0 


1500.0 


2840.0 






8 


1 


H1551 


304H 




5.0 


104.0 


520.0 


1340.0 


1500.0 


2840.0 




. 


9 


1 


H1551 


305M 




5.0 


104.0 


520.0 


1340.0 


1500.0 


2840.0 






10 


1 


H1551 


306N 




5.0 


104.0 


520.0 


1340.0 


1500.0 


2840.0 






11 


1 


H1551 


307N 




5.0 


104.0 


520.0 


1340.0 


1500.0 


2840.0 


«• 




12 


1 


H1551 


400D 




4.6 


102.0 


471 .0 


2750.0 


3000.0 


5750.0 






13 


1 


H15S1 


401H 




4.6 


102.0 


471 .0 


2750.0 


3000.0 


5750.0 






14 


1 


H1551 


402P 


• 


4.6 


102.0 


471.0 


2750.0 


3000.0 


5750.0 






15 


1 


H1551 


403G 




4.6 


102.0 


471.0 


2750.0 


3000.0 


5750.0 






16 


1 


H1551 


404Y 




4.6 


102.0 


471 .0 


2750.0 


3000.0 


5750.0 






17 


1 


H1551 






6.4 


94.0 


606.0 


2280.0 


*0 


2280.0 






18 


1 


H1551 


105C 




17.4 


65.0 


1133.0 


2963.0 


.0 


2963.0 






19 


1 


H1551 


106H 




5.3 


97.0 


510.0 


5950.0 


1500.0 


7450.0 






20 


1 


H1551 


107N 




5.3 


97.0 


510.0 


5950.0 


1500.0 


7450.0 






21 


1 


H1551 


108H 




5.3 


97.0 


510.0 


5950.0 


1500.0 


7450.0 






22 


1 


H1551 


109Y 




5.3 


97.0 


510.0 


5950.0 


1500.0 


7450.0 






23 


1 


H1551 


1 llA 




5.3 


97.0 


510.0 


5950.0 


1500.0 


7450.0 






24 


1 


H1551 


112H 




5.3 


97.0 


510.0 


5950.0 


1500.0 


7450.0 






25 


1 


H1551 


1131 




5.3 


97.0 


510.0 


5950.0 


1500.0 


7450.0 






26 


- 1 


H1551 


1 15N 




5.3 


97.0 


510.0 


5950.0 


1500.0 


7450.0 






27 


- 1 


H1551 


700X 




6.7 


184.0 


1224.0 


12880.0 


5000.0 


17880.0 






28 


1 


H1551 


701T 


. , 


6.7 


184.0 


1224.0 


12880.0 


5000.0 


17880.0 






29 


1 


H1551 


702H 




6.7 


184.0 


1224.0 


12880.0 


5000.0 


17880.0 






3a 


1 


H1551 


703Y 




6.7 


184.0 


1224.0 


12880.0 


5000.0 


17880.0 






31 


1 


H1551 


704G 




6.7 


164.0 


1224.0 


12880.0 


5000.0 


1788^0 






32 


1 


H1551 


705F 




6.7 


184.0 


1224.0 


12880.0 


500.0.0 


1788mo - 






33 


' 1 


H1551 


500R 




6. 1 


45.0 


274.0 


1700.0 


*0 


1700.0 


• V 




34 


1 


H1551 


501E 




6. 1 


45.0 


274.0 


17C0.0 


.0 


1700.0 


- 




35 


1 


H1551 


502Q 




6.1 


45.0 


274.0 


1700.0 


.0 


1700.0 






- 36 


1 


H1551 


503G 


« 


6.1 


45.0 


274.0 


1700.0 


*0 


1700.0 






37 


. .. 1 


H1551 


505H 




6. 1 ^ 


45.0 


274.0 


1700.0 


.0 


1700.0 






38 


1 


H1551 


506W 




6.1 


45.0 


274.0 


1700.0 


.0 


- 1700.0 






. 39 


1 


H1551 


507V 




6. 1 


45.0 


274.0 


1700.0 


.0 


- 1700.0 




— 


40 


1 


HI 551 


508N 




6. 1 


45.0 


274.0 


1700.0 


• 0 


1700^0 




■\ 


. . 


• 




GRAND 


TOTALS 




3847.6 


22291.6 


170428.6 


69506.0 


239928.6 








* 




BLANO/HANSEN 


THESIS 


-EMBARK- 1964 




/ ■ 




• 
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SUBROUTINE UPT 



50 



00 I PENS I ON ITANERM750), ISTDPKGI 175C)tSC( 1750),CU( 1750 ) ,WT ( 1750 » 
1CA( 1750) ,FUEL( 1790) ,GAL( 1750) ,DESC 1 1750 ), NTE ( 420 ) ,NTA (420) , 
2UNIT(420), ICTY (420), MLO ( 420 ) , LN ( 33 1 ) , BA ( 33 1 ) , D( 331), 

3PRIP.(331 ) ,FUS(331 ) , XFUS ( 33 1 ) , QTYV ( 33 1 ) ,WTV(33 1 ) ,CUV(331 ) , 
4LNREF(331), ITAV ( 50) , SWTV ( 

SSCUV(SO) ,CUUPT(3g) ,WTtPT(39), 

6SHIP(4), 

7 CLASS(2),NTOV(331),NTAV(331 ), 

8 XLC( ICO) ,KTA( ICO ) , 

9 SUP(7 ) ,PEN( 13), TEMP( 6) ,STKNBR(2 ) tWDESC (6) ,FLAGS(4) 

OCOPMON ITANBR, ISTOPKG,SC,CU,WT,CA, FUEL,GAL,DESC,NTE,NTA, ‘ 
lUNIT, ICTY, EG, PLO,LN, BA, D,PRIP,FUS , XFUS, QTYV, WTV.CUV,, i 
2LNREF,BACU,BAWT,C0AWT,C0ACU, ITAV, SWTV , SCUV,CUUPT, WTUP T, \ 
3CUUPTT, WTUPTT,STONS, XTCNS,SCUPT38, SQUPT39,D0A,HRSFUEL , 
40ATE,SHIP,CRG,CLASS,NTCV,NTAV,N1, NO ,PI 1 ,KV , LL , * 

5LINE,NPAGE,XLD,KTA,K1 , 1 1 , JJ,QRATS ,NRATS, SUM,P.EN,FLAGS I 



ECU I VALENCE (MENU ) , PC7 ) , ( MEN ( 2 ), M06 ) , 

1 (PEN(3),M05) , (PEN(4),PC4 ) , (MEN(5) ,PC3), 
2(PEN(6) ,P01 ) , (PEN(7) ,PW) . (MEN(8 ), ME7) , 
3(MEN(9),PE5),(MEN(10).PEU,(MEN(1 1 ),MOT), 
4(PEN( 12) ,MET) , (MEN( 13),MT0T) , 

5 (FLAGS! 1 ) , FLAG) , (FLAGS ( 2) ,FLAG2) , 

6(FLAGS(3) , FLAG3) , ( FLAGS ( 4 ) , FL AG4I 



\ I 



..I 



900 

901 



41 



STCNS= 

XTCNS= 

SCUPT= 

CUUPTT 

WTUPTT 

PRINT 

FORMAT 

IT)/) 

PRINT 

FORMAT 



WTUPT(39)/2000. 

CUUPT(39)/40. 

S0UPT38 + SQUPT.39 
=CUUPT( 38)+CUUPT(39 ) 
=WTUPT(38)+WTUPT(39 ) 

901 CLASS 

( 1H1//2X,2A8,/4CX ,40HUNIT 



PERSONNEL AND TONNAGE TABLE (UP,T 



1 



41 

( 120H. 



) 

,PW,MOT 

5,3X,4HCOL=, I5,3X,6HLTC0L=,I5,3X, 
I4,2X(3HW0=, I5,2X, 15HT0TAL OFFICE 



I4,3X,17HOTHER STAFF NC0S=,I5,14X 
TAL ENLISTED^ ,15/1 



PRINT 903 PC7,P06,M05,MC4,M03,M01 
9030F0RMAT(2X, IIFOFFICERS - ,4HGEN=,I 
14HPAJ=, I5,3X,5HCAPT=, I5,3X,3HLT=, 



2RS=,I5/) 
PRINT 904 
9040F0RMAT(2X 
1 , 15H0THER 
PRINT 905 



PE7,ME5,ME1,PET 
, IIHENLISTED - ,5HMSGT=, 
ENLISTE0= , 17, 12X,15HT3 



(LESS VEHICLES)) 



PTCT 

905 FCRPAT(99X,1 IHTOTAL PERS=,I5) 

PRINT 41 

PRINT 906 

906 F0RMAT(49X,21HCARG0 

PRINT 907 

907 F0RMAT(/,2X,6HSUPPLY,3X,4HLINE,39 
14X,7HWT (LB)/2X,5HCLASS,5X,3HNO.) 

PRINT 41 

PRINT 908 (L,CUUPT(L),WTUPT(L),L= 

908 FORMAT! 13X , 1 2 ,2X ,7HR AT I CNS . 74X, F8 
12X,5HWATER,76X,F8.0,F10.C/13X, 12, 
2F8.0,F10.0 ) 

PRINT 41 

PRINT 909 (L,CUUPT( L) ,WTLPT(L ), L= 

909 FCRMAT(2X,5HII I V , 43X , 2 1 )- AUTHOR IZ 
12X,17HTR00P SPACE C ARGO, 6 4X , F8. 0, 
21 IHOTHER CARGO, 70X, F8 .0, F 10.0/2X, 
354HT0TAL CLASS II, IV, MEDICAL AN 
4F8.0,F10.0) 

PRINT 41 

PRINT 910 (L,CUUPT(L) ,WTUPT(L ),L= 

910 FCRMAT(2X,7HIIA, IVA, I 6 , 2X , 1 7HAV lA 

PRINT 41 

PRINT 911 (L,CUUPT(L),WTUPT(L),L* 

911 F0RMAT(54X, 13HREPLENISHMENT/13X,I 



Figure 7 A 



X, 1 1H0ESCRIPTI0N,37X ,5HCU FT, 
1,3) 

.C,F10.0/5X, 1HI,7X,I 2, 
2X,13HTOTAL CLASS I,68X, 

4,6) 

EO ALLOHANCES/2X.7HMEOICAC,I6, 
F1C.C/4X,3HAND,I8,2X, ' 

6HCENTAL,I7,2X, 

0 CENTAL (LESS VEH IC LES 1 t 27X , 



7,7) 

TICN MATERIAL, 64X,F8 •0,F1C.C ) 
8,15) 

2,2X,20HELECTRONICS ^ ( SIGNAL) ,6 1 X, 



/!' J 



^ i I 



I . 



42 



lFe*0»Fl0.0/13X, I2»2X, ehENGINEER,73X,F8.0,F10.0/13Xl2. 2X, 
21SHGENERAL SUPPLY ( CM ) t 6 2X , F8 .C ,F 1 C . C/5X , 2H 1 1 , 6X , I 2 ,2 X , 

315HMCTCR TRANSPORT , 66X , F8 .0, F 1C .0 / 13X, 12 , 2X, 8H0RDN ANC E , 73X , F8 . 0 , 
4F10.0/13X, I2,2X, 3WCHEMICAL (LESS INFLAMMABLE AGENTS) » 47X , F8 • C , F 10 
5.0/13X,I2,2X,5hOTHER,76X,F8.0,Fl0 . C/ 1 3X , 12 t 2X , 14HT0TAL CLASS lit 
667X»F8.0,F10.0) 

PRINT 41 

PRINT 912 (LfCUUPT(L) tWTUPTIL )tL= 16,23) 

912 FORMAT(13X,I2,2X,20HELECTRONICS ( S IGN AL ) , 61 X , F8. 0 , F 10 . 0/1 3X . 1 2 , 2X, 
18HENGINEER,73X,F6.0.F10.C/13X, 12, 2X,44HGENERAL SUPPLY (QM) (LESS E 
2XCHANGE SUPPL I ES ) , 37X , F8 . 0, F 1 0. 0/ 5X , 2H I V, 6X, 12 , 2X , 1 5H MOTOR TRANSPO 
3RT,66X,F8.0,F 10.0/ 13X, I2,2X,8HOR0NANCE,73X,F8.0,F 10.0 /13X, I2,2X( 
434HCHEMICAL (LESS INFLAMMABLE AGE NTS ) , 47X , F8 .0 , F 1 0. 0/ 1 3X , 12 ,2 X, 
55HCTHER,76X,F8.0,F10.C/13X, I2,2X, 14HT0TAL CLASS IV 67 X , F8. C , F 1 C.O) 

PRINT 41 

PRINT 910 (L,CUUPT(L),WTUPT(L),L=24,24) 

PRINT 41 

PRINT 913 (L.CUUPT(L) ,WTLPT(L ),L=25,27) 

913 FORMAT ( 59X , 3HP0L/ 1 3X , 1 2 , 2X , 2 IHGA SOLI NE AND KEROSENE. 60X,F8.0 , FI 0. 
10/4X,3HIII ,6X, 12,2 X,9H0T HER P0L,7 2X , F8. 0 , F 1 0 .0/ 1 3X, l2 ,2X., 

215HT0TAL CLASS I 1 1 , 66X , F8 .0 , F 10 .0 ) 

PRINT 41 

PRINT 914 (L,CUUPT(L),WTUPT(L),L=28,28) 

914 F0RMAT(4X,4HI IIA,5X, I^,2X,29HAIRCRAFT FUELS AND LUBRI CANTS, 52X, 
1F8.0,F10.0) 

PRINT 41 

PRINT 915 (L,CUUPT(L) ,WTLPT(L ),L=29.33) 

915 FORMAT (55X,l0hAMMUNIT ION /13X, 12 ,2 X . 1 CHSMALL ARMS, 7 IX, F8.0,F1C.0/ 

1 13X, I2,2X, 15HHIGH EXPLCS I VES, 66X, F 8 .0 , FI 0 . 0 , /4 X , 1 HV.B X , 12 , 2X , 
247HINFLAMMABLES (PYROTECHNICS AND CHEMICAL AGENTS ), 34 X, F8. 0 , F 10.0/ 
313X, I2.2X, 15HNUCLEAR VnE AFONS , 66X, F 8 .0, F 1 0 .0/ 1 3X , 1 2,2X , 

413HT0TAL CLASS V, 68X, F8.C, FlO .0 ) 

PRINT 41 

PRINT 916 .(L,CUUPT(L) ,WTUPT(L),L=34,34) 

916 FORMAT (4X,2HVA,7X, 12, 2X, 19HAIRCRAFT AMMUN I T ION , 62X, F8 . 0 , Fl C.O ) 
PRINT 41 

PRINT 917 (L,CUUPT(L) ,WTLPT(L ),L=35,37) 

917 FORMAT (53X, 14HCTHER SUPPL I ES/ 1 3X, 1 2 , 2X, 1 7HEXCHANG6 SU PPLI ES , 64X , 
1F8.0.F10.0/13X, I2,2X, 18HMEDICAL ANC DENT AL , 63X , F8. 0,F 1 0. 0/ 

213X, I2,2X,20HT0TAL OTHER SUPP L I ES , 6 1 X , F8. 0 , F 1 0 . 0 ) 

PRINT .41 

PRINT 918 (L,SCUPT38,CUUFT(L) ,WTUPT(L ),L = 38,38) 

918 FORMAT! 13X,I2,2X,67HTCTAL CARGO (ADC LINES 3, 6, 7, 15, 23, 24, 27 

1 , 28, 33, 34, AND 37),7X,6HSQ FT. / 17X , 52H ( SQ FT. OF UNITIZED CARGO 

2 AND HEAVY LIFTS FROM C+L A ) , 1 7X ,F 8 . 0 , 4X, F 8 .0 , F 1 0. 0 ) 

PRINT 41 

PRINT 919 

919 FCRMAT(56X,8HVEHICLES) 

PRINT 920 (L,SCUPT39,CUUPT(L),WTUPT(L) ,L=39,39) 

920 FORMAT(2X,6HI I IIA/2X,6HAND I V, 17 , 2X, 14HT0TAL VEH ICLE S , 55X , F8 .0, 
14X,F8.0,F10.0) 

PRINT 41 

PRINT 921 STCNS.XTONS.SQLPT , CUUPTT.WTUPTT 
9210F0RMATI2X, 15HGRAND TOTALS - ,F10.3,llH SHORT TONS, 3X, F 14 . 3 , 

1 17H MEASUREMENT TONS , 1 4X , F8. 0, 4X , FS . 0,F 1 0 .0 ) 

PRINT 41 

PRINT 922 ORG .SHIP, CLASS 

9220r0RMAT(/4X,7HUNIT - ,A5,44X , 42HC ERT I F lED - 

1 /4X.7HSHIP - 4A8,22X, 19HDATE - //104X,2A8) 

PRINT 999 

999 FCRMATdHl ) > 

END * . 
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\jr>t X t f-- e f< 3CJTM rsie L 3TrTt3 tcjxini jxg^ t ^ c3 ■_ g » - - — 

1***MAJ* 



OFFICERS - GEN* 
ENLISTED - «SGT= 



0 

6 



COL* 1 LTC L 
OTHER STAFF NCOS* 



20 



3 CAPT* 10 LT^ 
OTHER ENLISTED* 



7 

185 



wo= 



V 






SUPPLY 

CLASS 



LINE 

NO* 



CARGO (LESS VEHICLESl 
DESCRIPTION 



10 TOTAL OFFICERS* 32 
TOTAL ENLISTED* 211 
TOTAL PERS* 243 



CU FT 



WT (LBL 



1 

2 

S 



R At IONS 
WATER 

TOTAL CLASS I 









321 

321 



8311 

8311 



II IV 
MEDICAL 
AND 

DENTAL 



4 

5 

6 



AUTHORIZED ALLOWANCES 

TROOP SPACE CARGO 
OTHER CARGO 

TOTAL CLASS II# IV. MEDICAL AND DENTAL (LESS VEHICLES) 



IIAtlVA 



7 AVIATION MATERIAL 



II 






8 

9 

10 

11 

12 

13 

14 

15 






V^' 



E;L:ECTRONICS (SIGNAL) 

ENGINEER 

GENERAL SUPPLY (QM) 

MOTOR TRANSPORT 

ORDNANCE -i' 

CHEMICAL (LESS INFLAMMABLE AGENT.ST 
OTHER 

TOTAL CLASS II 



REPLENISHMENT 



■ ■ 



* ) ■ 



i. • 

‘J- 



12753 

1439 



95 

14287 



77544 

26479 



;ij^98 

105521 



IV 



16 

17 

18 

19 

20 
21 
22 
23 



ELECTRONICS (SIGNAL) 

ENGINEER 

GENERAL SUPPLY (CM) (LESS EXCHANGE SUPPLIES) 

MOTOR TRANSPORT 

ORDNANCE 

CHEMICAL (LESS INFLAMMA LE AGENTS) 

OTHER 

TOTAL CLASS IV 









36 

37 



MEDIcaL* AND* OEf^t At* 
total other SUPPLIES 



f ; S 



■? 



. 



ji >• 






« < 

y 





38 


total cargo (ADD LINES 3, 
(GG^-TT*= OF UNITIZED CAR 3 


6# 7# IS# 23, 
AND HE AVY‘S L 11 


, 24, 27, 28, 33, 34, ANOi 371 
= TS FROM C+LA, ' 


SQ FT. 
2137. 


14708. 


'? \ 

I, 7] 64. 

f 


II IIA 
AND IV 


39 


* ¥• 

TOTAL VEHICLES 




VEHICLES " 


r 732. 


\ 

4027. 


^ V 

29135. 


GRAND 


TOTALS - 


14.567 SHORT TONS 


1o6.665 


MEASUREMENT TONS 


2869. 


18734. 


146299. 






ip 



UNIT 

SHIP 



Hll 



- ST CLAlR/fCOUNTY LST«1096 






Figure 7 B 
44 



CERTIFIED - 
DATE - 



vr 









RESTRICTED 

V\*/ V * • . 4 , X s. - 



5u8(2oUT»NJ<r C/l AJi) C/<V., 




■' Figure 8 




GAwPtA 




V 






Figure 8 



46 



SUBROUTINE CANOLA 




JHK ir^t 55 I I , M 

4LNREF (331 ) ? 

5SCUV(50) ,CUUPT(39) ,WTUPT (39), 

6SHIP(4), 

7 (:LASS(2),NT0V(331 ),NTAV(331 ), 

8 XLC( 100 ) ,KTA( ICO ) , 

9 SUM(7),NEN( 12),7EMP( 6 ) ,S TKNBR ( 2 ) , WDESC ( 6 ) ,FL AGS(4) 



NTAi 



9 SUM(7),NEN(12) , 7EMP( 6 ) ,S TKNBR ( Z ) , HUhSL I 6 ) , PI 

OCONNON ITANBR, ISTOPKG,SQ,CU,WT,CA,FUEL,GAL,DESC,NTE,L. ... 
lUNIT, IGTY,EG,MLD,LN,BA,D,PRIM,FUS, XFUS,QTYV,WTV,CUV, 
2LNREF,BACU,BAWT,C0AWT,C0ACU, ITAV, SWTV , SCUV, CUUPT, WTUP T , 
3CUUPTT,WTUPTT,sfONS,XTONS,SCUPT33 , SQUPT39, DOA , HRSFUEL , 
4DATE,SHI P,CRG,CLASS,NTCV,NTAV,N1, N0,N1,KV,LL, 
5LINE,NPAGE,XLD,KTA,K1 , 1 1 , JJ,QRATS , NRATS, SUM, FEN, FLAGS 

ECU I VALENCE (MEN(1 ) , MC7 ) . ( MEN ( 2 ), M06 ) , 

1 (FEN(3),M05) , (FEN(4),FC4 ) , (MEN (5) ,FC3), 

2 (FEN(6 ),M01 ) , (FEN(7) ,FW) , (MEN (8), ME7) , 

3(MEN(9) ,ME5) , (MEN( 1 0 ) .ME 1 ) , ( MEN ( 11 ) ,MOT) , 

4(MEN( 12),MET) , (MEN ( 1 3 ) , MTOT ) , 

5 (FLAGS(1),FLAG), ( FLAGS ( 2 ) , FLAG2 ) , 

6(FLAGS(3) ,FLAG3) ,(FLAGS(4),FLAG4) 

LINE = 73 



t 

I 

: ^ 



LINE = 73 
PRINT 1 CLASS, ORG, SHIP 

1 FCRMAT( 1X,2A8 . //44X , 33FCARGC AND LOADING ANALYSIS (C+LA),//,lX 

17HUNIT - , A5,//1X,7HSHIP - , ( 4A8) ) 

LINE = LINE+7 

2 PRINT 98 

98 FCRMAT(52X,10HSTD. CARGO, 4X , 28HUN I T I ZED CARGO - HEAVY LIFTS , 

1 3X.13HMOBILE LOADED ) 

DO 100 L=l,7 ' 

100 SUM(L)=0. i 

DC 50 11=1 , Ml ' » 

9 DC 50 JJ=1,N1 

IF(NTA(in-ITANBR(JJ))50,10,50 > | 

10 IK=IQTY(II) i 

G=ICTY(II) 

IF(NTA( I I )-10999 )55,55, 1 1 *; 

11 IF(NTA( I I )-12999)60,6C, 12 i 

12 IF(NTA( I n-13999 )64,64, 13 

13 IF(NTA(II)-14999)62,62,14 ! ^ 

14 IF(NTA( I I 1-15999 )66,6fc, 15 

15 IF (NTA( I I )-16999)68,68, 16 . . 

16 IF(NTA(II)-29999)60,6C,17 

17 IF(NTA( II)-39999)64,64, IE 

18 IF(NTA( I I 1-40999)62,62, 19 

19 IF(NTA( I I )-41999 )62,62,2C 

20 IF(NTA(II)-42999)75,75,21 

21 IF(NTA(II)-43999)62,62,22 

22 IF(NTA(I I )-49999)62,62,23 

23 IF(NTA(I I)-59999)66,66,24 

24 IF(NTA(I I)-69999)68,68,25 

25 IF(NTA(I I )-79999)70,7C,26 

26 IF(NTA(II )-82999)71,71,27 

27 IF(NTA(II )-83999)72,72,28 

28 IF(NTA( 1 1 )-84239 )73,73,29 

29 IF(NTA(I I )-845l9)73,73,3C 

30 IF(NTA(I I )-84999)73,73,31 

31 IF(NTA(I I)-85999)74,74,32 

32 IF(NTA(II)-86999)76.76,5C , 

60 IF(0RG-UNIT(KK))61,59,61 > 

55 L=1 

GC TO 58 
59 L=5 

GO TO 58 ^ Figure 8A 
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61 L=e 

GC TO 58 

62 IF(ORG-UNIT(KK) »63»,59,63 

63 L=10 

GO TO 58 

64 IF(CRG-UNIT(KKn65,59,65 

65 L = 9 

GO TO 58 

66 IF(ORG-UNIT(KK) >67,59,67 

67 L=11 

GC TO 58 

68 IF(ORG-UNIT(KK) >69,59,69 

69 L=12 

GC TO 58 

70 FLAG2=-1. 

CALL PETROL 
LL = 25 

CALL WCANDLA 
L=26 

GC TO 58 

71 L=16 

GC TO 58 

72 L=17 

GC TO 58 

73 L=18 

GC TO 58 

74 L=19 

GC TO 58 

75 L=13 

GC TO 58 

76 L=20 

58 LL=L 

CALL WCANDLA 
50 CONTINUE 
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RETURN 

END 
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SECTION V 



PROGRAM MOUNTOLT 



Purpose 

To print out by T/A sequence nximber the. Table of Equipment for 
an Infantry Regiment broken down by the amounts allowed for a Rifle 
Company (TE 1013) , Headquarters and Service Company Infantry Battalion 
(TE 1037) , Infantry Battalion (TE 1038) , Headquarters Company Infantry 
Regiment (TE 1096) and Infantry Regiment (TE 1039) , MOUNTOUT also 
indicates by duplicate T/A number following the first listing those 
items which are Garrison type and used in training or when permanent 
installations are to be set up. 

Input Data 

A T/A input tape with complete updated allowance information • 

A deck of T/E cards for each company (TE 1013) , The Headquarters and 
Service Company (TE 1037) and The Regiment (TE 1096) , 

Output Data Tapes 
None 

Restrictions 

None 

Methodology 

MOUNTOUT processes the T/E cards for an Infantry Regiment and 
prints out a Table of Equipment by T/A number broken down by units 
making up the Regiment. The following phases are required: 
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1. The program identifies the incoming information as that 
of a Rifle Company (TE 1013), Headquarters pd Service Company Infantry 
Battalion (TE 1037) or Headquarters and Service Company Infantry 
Regiment (TE 1096). After making thi^ "determination, it identifies 

f 

the item as either a Garrison type item or not. The T/A numbers of 
Non-Garrison items are stored in. a list and the quantity of that item 
shown on the card is stored under the unit's number; 1013, 1037 or 1096. 
If the item is a Garrison item the T/A number is stored in a separate 
Garrison List and the quantity of the item shown on the card is stored 
under Garrison by unit number. 

2. The program computes for each T/A number, the number of 
allowed items for the Infantry Battalion (1038) by taking the quantity 
stored under the Rifle Company (1013) , multiplying it by four (four 
Rifle Companies in a Standard Infantry Battalion) and adding to it the 
1037 quantity under that particular T/A number. This is done separately 
for Garrison and Non-Garrison items and the results are stored separately 
See Figure 9 for this relationship. 

3. The program computes the Infantry Regiment allowance (1099) 
in the same manner by multiplying three times the (1038) quantity and 
adding to it the (1096) quantity. 

4. The program prints out a Table of Equipment for the entire 
Standard Infantry Regiment. (The computational formulas must be 
changed for a Non-Standard Regiment.) 

Figure 10 shows the flow chart for program MOUNTOUT and Figure lOA, 
the Fortran '60 listing. 
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Input 



See Appendix A for card input format. 

Output 

The output written by MOUNTOUT is a Table of Equipment for an 



Infantry Regiment. 


A sample of which is shown in Figure lOB. 


COLUMN 


INDICATES 


1 


The item by T/A number 


2 


The quantity required by the Rifle 
Company (1013) 


3 


The quantity required by the Head- 
quarters and Service Company Infantry 
Battalion (1037) 


4 


The quantity required by the Infantry 
Battalion (1038) 


5 


The quantity required by the Head- 
quarters and Service Company Infantry 
Regiment (1096) 


6 


The quantity required for the Standard 
Infantry Regiment (1099) 



Garrison items for the same T/A number item (if any) are listed in 
the same order, immediately following the first listing of the T/A 
number. 

Timing 

Running time for MOUNTOUT is approximately 2 minutes and 30 seconds. 
Error Messages 

If the T/E card is not 1013, 1037, or 1096, the word, ERROR is 
printed out in the T/A nxmiber column. 
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Data 



MOUNTOUT data was punched in cards from Tables of Equipment for 
components of an Infantry Regiment. 
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STANDARD INFANTRY REGIMENT 




Figure 9 
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PRCGRAM MOUNTCUT 

GDI PENS ION LISTtSOO) ,NTA( 500),N13( SCO ) , N37 ( 500 ) f N38 ( 50 0 ) ,N96 ( 500 ) . 
1N613(500) ,N637(5C0),N638(500) ,N696(500)fN699(5C0)#N99 (500) tNN(500) 
2,NTE(500) ,NCTY(5COT,LISTG(500> 

DC 60 1=1,461 , 

NN(i)=o :• . 

LIST(I)=0 ! 

LISTG(1)=0 , 

M3(I)=0 
N37(I)=0 
N3em=o 

N96{I)=0 ' 

N99(I)=0 
N613(I)=0 
N637( I )=0 
N638( I )=0 
N696(I)=0 
60 N699( I )=0 
1 = 0 

READ 50, (NTE(J),NTA( J),NCTY(J),NMIJ), J=l,461 ) 

50 FCRPAKSX, 14, 15, I5,5X, II ) 

100 1=1+1 

IF( 1-461 166,65,65 
66 IF{M6(I)-1013)1,1,2 
1 IF(NN{ 11-1 13,4,4 

3 LIST! 11= NTA( II 
N13( I 1=NQTY{ II 
GC TO 100 

.2 IF(NTE( 1 1-103715,6,7 

5 GC TO 400 

4 LISTG(I1=NTA(I1 
N613I I 1=NQTY{ I 1 
GC TO 100 

6 IF(NN{ I 1-1 18,9,9 

8 LIST! I 1=NTA( II 
N37( I 1=NQTY( I 1 
GC TO 100 

9 LISTGI I 1=NTA( I 1 
K637( I 1= NCTY (II 
GC TO 100 

7 IF(NN{ 11-1 110,11,11 
10 LIST( I 1 = NTA( I 1 

N96( I 1=NGTY( I 1 



■ GC TO 100 
11 LISTGI I1=NTA( I 1 
N696( I 1 = NGTY( I 1 
GC TC 100 
65 DC 35 1=1.461 

N38( I 1=4*N13 ( 1 1+N37( I 1 
N99{ I 1=3*N38( 1 1+N96I I 1 
N638( I 1 = 4*K613( I 1 + N637( I 1 
35 N699{ I 1 = 3»N638( I 1+N696( I 1 
PRINT 9000 

9000 FORPATI IHI ,////! 

PRINT 9001 * • . 

9001 FCRPAT(25X21HT/E INFANTRY REGIMENTl * V 

PRINT 70 

700F0RPAT(6X60HT/A NUMBER 1013 1037 1038 1096 

1 10991 

DO 40 1 = 1 ,461 • i 

PRINT 41 LIST! I 1 ,N13( I 1 ,N37( II ,N38(I 1,N96( 1 1 ,N99( I 1 
41 FCRMAT(6X, I5,11X,I4,5X,I4,5X,I4,5X,I4.11X,I41 

PRINT 43,LISTG( I 1,N613( I 1,N637( II ,N638{ I 1 ,N696( II ,N699(1 1 
43 F0RMAT(6X, 15, 11X, I4,5X, I4,5X, I4,5X, 14, 11X,I41 
40 CONTINUE i 

400 PRINT 401,NTA(I1 • : i 

401 FCRMAT(6X, I5,5HERR0R1 ' | 

END , , 

ENO ^ ,i 
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T/e 


INFANTRY 


REGI MENT 






T/A NUMBER 
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SECTION VI 



PROGRAM TABLE 



Purpose 

To print out the USMC Table of Allowances. This table specifies 
Marine Corps furnished items of material authorized for issue to the 
Fleet Marine Force and provides a listing of items for which allowances 
are established in individual units or activities Table of Equipment. 

It serves as a source of allowance information for CLASSES 1 - IV, 
and those CLASS II, Type 2 items which are authorized for Fleet Marine 
Force (FMF) and organized Marine Corps Reserve (OMCR) units on an 
**as required" basis. 

CLASS II Type 1 supplies consist of those items appearing in the 
Tables of Equipment (T/E^s). The allowances eatablished in the T/E*s 
constitute the maximum amount of an item authorized to be on hand. No 
basis of distribution is shown for these items in the T/A, The items 
coded "SP" are station property items not normally authorized for the 
FMF or CMCR. 

CLASS II Type 2 supplies consist of items authorized on an "as 
required" basis. These items do not lend themselves to establishment 
of firm allowances as requirements may vary due to assigned missions, 
operations, location of units and numerous other factors. Units will 
requisition and maintain on hand only those Type 2 items necessary to 
meet operational requirements. 
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Input Data 



A deck of T/A cards for all items listed in the USMC Table of 
Allowances. These cards will show that T/A n^lmber, Stock Number, 
Identification Number, Unit of Issue, Standardization and Procurement 
Status, Unit Standard Package (the quantity of an item contained in a 
standard package) , Square (square feet of rolling stock, uncrated, and 
assembled with normal attachments) , and Cube (the cubic feet of the 
packed or crated standard package, except for the vehicles) . For 
vehicles, the Cube entry indicates Cube of the vehicle, uncrated 
and unassembled. The card also shows Weight (gross weight in pounds 
of the standard package). Replacement Factors (the estimated per- 
centage of the equipment in use that will require replacement during 
a given period). Fuel Type for all fuel burning equipment (gas, diesel 
or kerosene) and Rate of Consumption of fuel in gallons per hour. 
Fields are to be punched in cards as shown in Appendix A. 

There is also a representative sample of description cards which 
are keyed to the above cards by the T/A number. 

Restrictions 

All numbers with the exception of T/A number. Stock Number, 
Identification Number and Unit Standard Package must be punched with 
a decimal point as indicated in the program comment statements. (See 
example Figure llA.) 

Methodology 

"TABLE" reads the information from the incoming T/A cards; it 
classifies each T/A number and its associated information as to Class, 
Type and Technical Classification. The Technical Classifications are 
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Electronics, Engineer, General supply. Motor transport and Ordnance. 
The T/A numbers are grouped in the following serial number groups in 
memory: 



CLASSIFICATION 


CLASS II TYPE 1 


CLASS II TYPE 2 


CLASS IV 


Electronics 


20000-29999 


12000 


82000 


Engineer 


30000-39999 


13000 


83000 


General Supply 


40000-49999 


14000 


84000 


Motor Transport 


50000-59999 


15000 


85000 


Ordnance 


60000-69999 


16000 


86000 



After the information is all read in and classified, the pro- 
gram prints out a complete Table of Allowance with appropriate 
headings and arranged by classes of supply. 

Figure 11 shows the flow chart for program TABLE and Figure llA, 
the Fortran ’60 listing. 

Input 

See Appendix A for card input format. 

Output 

The output produced by TABLE is the Table of Allowances, a 
sample of which is shown by Figure IIB. A complete listing occupies 
75 pages. 

Timing 

Running time for TABLE is approximately five minutes and eight 
seconds. 

Data 

TABLE data was punched in cards from USMC Table of Allowances 
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THESIS -EMBARK- 1964 - USNPGS 



PROGRAM TABLE- 

C TO REPRODUCE THE T/A. DATA CAROS MUST BE PUNCHED AS FOLLOWS- T/A NER 
C COLS. 1-5, STOCK NBR COLS.d-16 (INCLUDING DASHES), ID NBR COLS. 19-23, 

C UNIT OF ISSUE COLS. 24-25, UMT STD PKG COLS. 26-29, STD«-PROC COLS. 

C 30-33, NOTE- DC NOT INCLUDE DECIMAL POINT IN THE FOLLOWING BUT ASSUME 
C IT TO BE WHERE SHOWN. SO COLS. 35-37 (XXX. XX), CUBE COLS. 40-45 ( XXXX. 
CXX), WT COLS. 50-57 (XXXXXX.XX), CA C3LS 60-64 (XX. XX), CT T COLS 65-69 
C (XX*XX), T COLS 70-75 (XX. XX), TYPE FUEL USED COL. 76 (G,0,K). GAL PER 
C HR COLS. 77-79 (XX. XX), COLS. COL 80 HAS A CONTROL 

C NUMBER 1-9 FOR PROGRAM CCNTPOL. 

PRINT 999 

9990F0RMAT( 1H1/////////////////////////47X26HUNITED STATES MARINE CORP 
1S//43X35HT ABLE OF ALLOWANCE S//49X2 IHS HORT TITLE-T/ 
2A, USMC////10X15HREVISI0K NO. 13 74X 1 2HBLAN0-HANSEN/1 OX 13HNAVMC 10 
317-OP 76X12HU.S.N.P.G.S. ) / 

DIMENSION STKNBR(2), CESC(6), STKNBRT(2), LISTI500) 

J=0 

NPAGE=0 

1 IF(J-79) 11,665,665 

665 PRINT 666 

666 FORMAT (/ 39X, 43HBL AND/HANSEN 

399 NPAGE=NPAG£+1 

400 PRINT 401.NPAGE 

401 FORMAT! IHI ,1 10X, 5HPAGE , 13) 

J • 0 

llOREAD 12 ITANBR,STKNBR,DNER,UNISS, ISTPKG, STPROC, SQ,CU, WT,CA,CTT 
1 ,T, FUEL, GAL, NBRCRD 

120F0RMAT(I5, A8,A5, A5, A2,I4,A4,1X,F3 .0,2X,F6.0,4X,F8.0,2X,3F5.0ff iXt 
1A1,F3.0,I1) 

10 DNBRT=0NBR ^ ■ 

ITTANBR=ITANBR ' I 

STKNBRT=STKNBR ' f ’ 

IF( ITANBR-10999)54,54,13 J *5 

13 IF( ITANBR-12999 )83,83,14 , * 

14 IF( ITAN6R-13999)84,84,15 . r 

15 IF( ITANBR-14999) 85,85.16 !! 

16 IF( ITANBR-15999)86,86,17 ’ •; I 

17 IF( ITAN0R-16999)87,87, 18 < : 

18 IF( ITANBR-29999)88, 88, 19 . j 

19 IF(ITANBR-39999)e9,89,20 ' 'l 

20 IF( ITANBR-40999)90,90,21 . jS 

21 IF(ITANBR-41999)91 ,91 ,22 i 

22 IF( ITANBR-42999)92,92,23 • 

23 IF( ITAN6R-43999)93,93,24 ' 'I ' 

24 IF( ITANBR-49999)94,94,25 ’i } i 

25 IF( ITANBR-59999)95,95,26 I ■ 

26 IF( ITANBR-69999)96,96,27 ' 

27 IF( ITANBR-79999197, 97,28 J 1 

28 IF(ITANBR-82999)98,98,29 ■! 

.29 IF(ITANBR-83999)99,99,30 . Si 

30 IFdTANBR-84229) 100, 1C0,31 i 

31 IF(ITANBR-84519) 101,101,32 '■ I I ~ ■ 

32 IF( ITANBR-84999) 102, 102,33 

33 IF(ITANBR-85999) 103, 103,34 

34 IF( ITANBR-86999) 104, 104,500 ^ 

54 IF(10010-ITANBR)57,55,57 

55 NPAGE=NPAGE+1 
PRINT 56 NPAGE 
J*J + 1 

560 FORMAT ( 1 H 1 , 1 1 OX , 5HPAGE _ , 1 3 / 42 X, 35 HT 

PRINf 
J=J+5 

PRINT 58 ITAN6R,STKNBR 
J*J+1 

FORMATdX, I5,2X,A8,A5) 

N*1 

IF (N-NBPCRD) 42,42,3C2 
PRINT 303 DNBR.UNISS. ISTPKG, STPR3C,S 
FORMAT! IX, A5,49X,A2, IX, 1 4 , 1 X, A4,l X, F 
1 3F6.2,lX,Al,lX,F5.2) 

J*J+1 

Figure llA 



A B. L E OF 

IE S ,//50X,20HGENERAL SUPPLY ITEM S//5 1 X, 1 7HCLASS 
301 



A L L 0 W A 
1 - RATIONS) 



N C 



57 

58 
3 

302 

303 



|,CU,WT,CA,CTT,T, FUEL,GAL 
1.1, 1X,F9.2, 1X,F8.1,1X, 



f 
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I 



DESC 



217) 



2A5) 



GC TO UO 

READ 45, ITANBR, DNBR, 

FGRMAK I5,A5,6A8) 

IF(ITANBR-ITTANBR)*4,4 6,U 
PRINT 47, ITANBR, ITTANBR 
J = J + 1 

FCRMAT(X11H»« ERROR XX 

IFIDNBR-DNERT ) 5,48,5 
PRINT 49 ONBR, ONBRT 
J = J+1 

FCRMAT(X11H*» ERROR XX 

IF(N-NfiRCRC)38,39,900 
NERCRD=NBRCRC-1 
PRINT 76, DNBR, DESC 
FCRKAT(1X,A5,2X,7A8) 

J = J+1 
GC TO 3 

390PRINT 77, DNBR, DESC,UNISS, 

IFUEL, GAL 

770F0RKAT(1X,A5,1X,6A8, A2 , 1 X, 14 ,1 X , A4 , IX , F5 . 1 , 1 X, 

1 3F6.2,1X,A1,U,F5.2) 

J = J + 1 

40 PRINT 41 
J = J+1 

41 FGRMAT(1X118H 

1 



42 

45 



47 
46 

5 

49 

48 
38 

76 






ISTPXG, STPROC,SC,CU,WT,C A 

F9.2, 



/ 

/ 

/ 

tCTT.T, 

1X,F8*| 



fix, 



57,184,57 



,I3/43X,35HT ABLE OF AL 
ITEMS - CLASS 2//57X, 6HT YPE 21 



STO 



0 W A 
SQ 



N C 



GC TO 1 

83 IF(12010-ITANER) 

184 NPAGE=NPAGE+1 

PRINT 185, NPAGE 
1850F0RMAT( IHI ,1 10X,5HPAGE 
IE S//47X,26HELECTR0NIC 
J = 5 

PRINT301 

3010F0RMAT(2X,3HT/A,29X, 1 1 HOE SCR I PT ION, 1 1X.24HISS ST 

1 2HCU,6X,31HWT CA CTT T F GAL/ / s 

23X,2HID,55X,8HPKG PROC, 4SX, 2HHR// ) H 

J=J+4 i ‘ . 

GC TO 57 - . ! . 

84 IF(13010-ITAN6R) 57,186,57 ? 

186 NPAGE=NPAGE+1 

PRINT 187, NPAGE ' 

1870F0RMAT( 1H1 , 1 lOX, 5HPAGE ,I3/43X,35HT ABLE OF ALLOWANC 
IE S//48X,24HENGINEER ITEMS - CLASS 2/ /57X , 6HTYPE 2 ) , 

1*5 f ' ' ■ I 

PRINT301 , ' 

J=J+4 i ! 

GC TO 57 ; ! . ; 

85 IF(14005-ITANBR) 57,188,57 f 

188 NPAGE=NPAGE+1 

PRINT 189, NPAGE 

1890FCRMAT( iHl , 1 10X,5HPAGE ,I3/43X,35HT A B L E OF A L 
IE S//47X,26HGENERAL SUPPLIES - CLASS 2//57X , 6HTYPE 2) 

J = 5 

PRINT301 
J = J + 4 
GC TO 57 

86 IF(15010-ITANBR)57, 19C,57 
190 NPAGE=NPAGE+1 

PRINT 191, NPAGE 

1910F0RMAT(1H1 , 1 10X.5HPAGE ,I3/43X,35HT ABLE OF ALL 
1 E S//44X,3lHM0T0R TRANSPORT ITEMS - CLASS 2//57X,6HTYPE 

PRINT301 ! , • 

J=J+4 ! 

GO TO 57 1 ’ . 

87 IF( 16010-ITANBR) 57,192,57 ' ? 

192 NPAGE=NPAGE+1 i 

PRINT 193, NPAGE 

1930FCRMATMH1 ,1 10X,5HPAGE ,I3/43X,35HT ABLE OF ALLOWANC 
IE S//48X,24H0RDNANCE ITEMS - CLASS 2//57X, 6HTYPE 2) 

J = 5 

1 Figure llA {c’T-fjt-) 



L 0 W A N C 



0 W A 

2)i . 



N C 



t 

, I 



66 



1 



I 









I f 
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,SP 




, I3/U3X,35HT ABLE OF AL 
ITEMS - aASS 2//57X,6HTYPE 1) 



L 0 W A N C 



•/. 



89 

196 



! /• 



A 

1) 



L L 0 W A N C 

(' • ' 



___ ALLOWAN 

IVIOUAL CL0THING//52X16HCLASS 



C 

2 



PRINT301 
J=J*U 
GO TO 57 

88 IF(20010-ITAN8R)5^7, 19«4,57 
194 NPAGE=NPAGE*1 

PRINT 195, NPAGE’ 

1950 FORMAT! IHI , 1 10X.5HPAGE 
IE S//47X,26H6LECTRONIC 
J = 5 

PRINT301 
J = J+4 
GC TO 57 

IF(30030-ITANBR)57,196,57 
NPAGE=NPAGE+1 
PRINT 197, NPAGE 

1970FCRNAT( IHI, nOX,5HPAGE ,I3/43X,35HT ABLE OF 
IE S//48X,24HENGINEER ITEMS - CLASS 2//57X,6HTYPE 
J=5 

PRINT301 
J=J+4 
GC TO 57 

90 IF(40010-ITANBR)57, 198,57 
198 NPAGE=NPAGE+1 

PRINT 199, NPAGE 

1990FCRMAT( IHI .1 10X.5HPAGE ,I3/43X,35HT ABLE OF 
IE S//41X,38HGENERAL SUPPLIES - INDI\ 

2 - TYPE 1) 

J = 5 . ; 

PRINT301 ' ; 

J=Jf4 ^ 

GO TO 57 

91 IF(41010-ITANBR)57, 200,57 
200 NPAGE=NPAGE+1 

PRINT 201, NPAGE 

2010FCRM.AT{1H1 ,110X,5HPAGE ,I3/43X,35HT ABLE OF ALLOW ANC 
lE S//39X,42HGENERAL SUpHiES - ORGANIZATIONAL CL0THING//52X , 1 6KCLA 
2SS 2 - TYPE 1 ) 

J = 5 •• 

PRINT301 . i 

J=J+4 

GO TO 57 

92 IF(42010-ITANBR)57,202,57 

202 NPAGE=NPAGE+1 1 

PRINT 203, NPAGE 

2030F0RMAT( iHl.l 10X.5HPAGE ,I3/43X,35HT ABLE OF ALLOWAN 
IE S//42X,35HGENERAL SUPPLIES - CHEMICAL HARFARE//52X, 16HCLASS 2 
2TYPE 1) 

J = 5 ' i 

PRINT301 1 

J=J+4 ! 

GC TO 57 . i ' 

93 IF(43010-ITANBR)57,204,57 i ' 

204 NPAG£=NPAGE+1 

PRINT 205, NPAGE 

2050FCRMAT(1h1 , 110X,5HPAGE ,I3/43X,35HT ABLE OF ALLOWAN 
IE S//40X,39HGENERAL SUPPLIES - INDIVIDUAL EQUIPMENT// 52X, 1 6HCLAS 
22 - TYPE 1 ) 

J=5 

PRINT301 
J=J+4 
GC TO 57 

94 IF (44010-ITANBB)57,206,57 

206 NPAGE=NPAGE+1 I 

PRINT 207, NPAGE 

2070F0RMAT( IHl.l 10X.5HPAGE ,I3/43X,35HT ABLE OFALLOWAN 
IE S//42X,35HGENERAL SUPPLIES - GENERAL ART ICLES//52X, 1 6HCLASS 2 
2 TYPE 1) > i 

J=5 , .1 

PRINT301 ! • 

J=J + 4 i ! . . 

GO TO 57 

IF (500 10- I TANBR 157,208,57 
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208 NP/^GE = NPAGE+1 ‘ 

PRINT 209. NPAGE 

2090FCR^'AT( IHl . n0X,5HPAGE , 1 3/43X, 35HT ABLE OF A 
IE S//49X,21HM0T0R’»TRANSPCRT I TEMS //52X, 1 6HCLASS 2 - 
J=5 

PRINT301 
J = J+4 
GC TO 57 

96 IF(60010-ITANBR)57,21C,57 
210 NPAGE=NPAG£+1 

PRINT 211, NPAGE 

21 lOFORNATI IHI , 1 10X,5HPAG£ ,I3/43X,35HT ABLE OF A 
IE S//53X,14H0RDNANCE ITEKS//52X,! 6HCLASS 2 - TYPE 1) 

J = 5 

PRINT301 
J = J+4 
GO TO 57 

97 IF(70010-ITANBR) 57,212,57 
212 NPAGE=NPAGE+1 

PRINT 213, NPAGE - 

2130F0RMAT( IHI ,1 10X,5HPAGE ,I3/43X,35HT ABLE OF AL 
IE S//52X,15HFUEL CLASS - 3) 

J = 3 

PRINT301 i 

J=J+4 • ! 

GC TO 57 ,! 

98 IF(82010-ITANBR)57,214,57 , ! 

214 NPAGE=NPAGE+1 i 

PRINT 215, NPAGE 
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LE OF AL L. OKANC 



BLE OF AL'LOWANC 
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rrviini ^13, 

2150FCRPATI IHI , 1 10X.5HPAGE ,I3/42X,35HT A B 
IE S//47X,26HELECTR0NIC ITEMS - aASS 4) 

J*3 

PRINT301 
J = J+4 
GC TO 57. 

99 IF(83010-ITANBR)57,216,57 
216 NPAGE*NPAGE+1 

PRINT 217, NPAGE 

2170F0RMATI IHl, 1 10X,5HPAGE ,I3/43X,35HT A 
IE S//48X,24HENGINEER ITEMS - CLASS 4) 

J=3 
PRINT301 
J = J+4 
GC TO 57 

100 IF(84010-ITANBR)57,2ie,57 
218 NPAGE=NPAGE+1 

PRINT- 219, NPAGE 

2190FCRMATI IHI . 1 10X.5HPAGE ,I3/43X,35HT ABLE OF ALLOWANC 
IE S//43X,33HGENERAL SUPPLY - GENERAL ARTICLES//56X,7HCLASS 4) 

J=5 

PRINT301 
J=J+4 
GC TO 57 

101 IF(84240-ITANBR)57,22C,57 
220 NPAGE = NPAGE-H 

PRINT 221, NPAGE 

2210FCRMAT(lHl ,1 1CX,5HPAGE ,I3/43X,35HT ABLE OF ALLOKANC 
IE S//41X,38HGENERAL SUPPLY - COLO WEATHER CL0THING//5 6X, 7HCLASS 4) 
J = 5 

PRINT301. 

J=J+4 I 

GO TO 57 

102 IF(84520-ITANBR)57,222,57 ' 

222 NPAGE = NPAGE->1 

PRINT 223, NPAGE 

2230F0RMATI 1h 1 , nOX,5HPAGE ,I3/43X,35HT ABLE OF ALLOWANC 
IE S//41X,38HGENERAL SUPKy - COLO HEATHER SUPPL IES//5 6X #7HCLASS 4» 
J»5 

PRINT301 > 

J=J+4 < *! I 

GO TO 57 ' 1* ’ 

IF(85010-ITANBR)57,224,57 * 
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22U NPAGE*NP/iGE+l ‘ 

PRINT 225, NPAGE 

2250F0RNAT( 1H1 , 1 10X,5HPAGE , I 3/*43X . 35 HT ABLE OF ALLOWANC 
IE S//40X,39HMOTOR ’TRAKSPCRT - CaO WEATHER SUPPLI ES// 56X , 7HCLASS 4 
2 } 

J = 5 

PRINT301 
J=J+4 
GC TO 57 

104 IF(86010-ITANBR)57,22d,57 

226 NPAGE=NPAGE+1 , 

PRINT 227, NPAGE 

2270FCRPAT(1H1 ,1 10X,5HPAGE ,I3/43X,35HT ABLE OF ALLOW AN C 
IE S//48X,24HCRDNANCE ITEhS - CLASS 4) ■ / . 

J = 3 ; / S 

PRINT301 

J=J+4 ' 

GC TO 57 - , 

L=0 ; . 

900 LIST! L)=ITANBR ! n 

L=L+1 ; 

GC TO 1 

500 PRINT 501, LIST 

501 FORPATIIX, lOIlO) 

C FINAL PRINTOUT IS TANBRS WITHOUT A CONTROL NUMBER IN COLUMN 80 

END . . 
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GENERAL SUPPLY ITEMS 
CLASS 1 - RATIONS 



T/A 

ID 


OESCRIPriON 


ISS ST 
PKG 


STD 

PROC 


SQ 


CO- 


WT 


CA 


CTT 


T 


F 


GAL/ 

HR 


10010 


X 

\ 

9110 - 263-9865 . 

FUELf COMPRESSED# TRIOXANE 


SP 


400 




*0 


\ 1 • 50 


62.0 


1.00 


% 

• 00 


.00 


T 


.00 


16626 


8970 - 577-4513 

HEALt COMBAT, INtUrUjOUAL . 


SP 






.0 


1.10 


24.0 


1.00 


.00 


.00 




. .00 


\663p 


89H-1 94-3986 

RATION# SMALL DETACHMENT, 5 -lN-l 


SP 


5 - 


- 


• 0 


1.10 


^8,5 


1.00 


.60 


.00 


• 


cOO 


i66u6 


RATION, OPERATIONAL# A 


SP 


1000 




• 0 


6261.00 


0 
• ' 
0 
0 

CO 

<M 

1 Jl 


30.00 


.00 


.00 




.00 


16656 


RATION# OPERATIONAL, B 


SP 


1000 


. 


.0 


3582.00 


152460.0 


30.00 


.00 


.00 




.00 


10666 


8970 - 268-9934 

RATION SUPPLEMENT# SUNDRIES PACK 


SP 


100 




«0 


1.90 

\ 


47.0 


1.00 


.00 


.00. 


^ 1 


.00 








• 






\ 
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SECTION VII 



FUTURE DEVELOPMENTS 

The programs of the EMBARK system will assist greatly in 
that element of planning involving the preparation of the detailed 
embarkation and loading plans. Program TABLE will produce a 
current Table of Allowances as a ready reference for embarkation 
planners, and program MOUNTOUT may be used to produce the Table of 
Equipment for an Infantry Regiment, if required. The main program 
EMBARKD will produce the unit loading forms for distribution to 
Troop Commanders, and after being consolidated, these forms will 
be incorporated as a part of the completed loading plan. 

Computers can assist in the solution of other planriing problems 
in amphibious operations. Several studies have been made and are 
known to the authors. As one example, The Stanford Research Institute 
has developed a procedure for simulating amphibious deployment 
operations as a part of a study of problems involved in the world-wide 
deployment of the Marine Expeditionary Force in cold and limited-war 
situations. [nj. The simulation model developed is called MARADS, 
and has been designed to reduce the amount of effort required to 
analyze amphibious assault operations. The model will account for 
all the major events in the deployment process from the time a 
decision is made to move troops through movement to port or beach, 
embarkation, movement to the objective area, and projection of the 
forces ashore. Included in the MARADS model are programs for: 

1. The efficient organization, storage and retrieval of data 
regarding equipment, personnel, supplies, organizations, ships and 
transfer vehicles. 
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2* The conversion of simple identifying organizations into 
detailed listings of personnel, equipment and supplies. 

3. The allocation of personnel, equipment and supplies to 
subforces to transfer vehicles. 

4. The simulation of the ship-to-shore operation, including 
the computation of the number of transfer vehicles needed by type. 

5. The computation of the number of ships by type, required 
to transport the forces and vehicles. 

6. The computation of key times throughout the entire deploy- 
ment and assault operations. 

The authors believe that computers can be used profitably in 
at least two other areas of planning. First, it is a fact that 
digital computers will be available on the larger ships of any 
amphibious task force in the future; there are presently a signifi- 
cant number of ships in the fleet with computer installations, and 
more are scheduled to be outfitted with them. 

The first problem to which we shall address ourselves is the 
possibility of a change in the conditions at the objective area, 
or even a change in the objective area itself subsequent to loading, 
but prior to the initial landing. This would require a revision in 
the unloading plan, and here, the computer can make a significant 
contribution. With the information of the MARADS and EMBARK systems 
the computer could be interrogated as to the best unloading sequence 
available to support the new landing plan, aid could test a great 
number of alternatives. If better alternatives were available they 
could be listed in order of preference, or if the change of conditions 
made the landing unfeasible, this also could be determined. 
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The next possibility for computer use would be to determine 
the best revised sequence for landing units and equipment if the 
scheme of the manuever ashore changes the initial landing. In the 
immediate future the means will be available for the shore party to 
relay by electronic signals, (e.g. , microwave transmissions) new data 
to the computer aboard the ship in the task force. The computer will 
take this new data and, after processing it, come up with alternative 
assignments of units and equipment to meet the changing situation 
ashore. Of course, to be able to do this, the computer must be con- 
tinually fed information as to which units have been unloaded and the 
status of each unloading vehicle. 

It will be possible, in the near future, for the Amphibious Task 
Force Commander and the Landing Force Commander to have some means of 
visual display of information received from the computer. This will 
enable the commanders to request the status of the unloading at any 
time, and to determine when a particular piece of equipment or unit 
can be expected on the beach. The computer can also be programmed 
to forecast the time the unloading will be completed considering 
the progress made up to the time it was interrogated. 

The ability to achieve this flexibility in the conduct of 
amphibious operations is of great value to the Landing Force Commander. 
Using computers, the alternative courses of action can be determined 
in a short time, to assist in making sound decisions that increase 
the possibilities of a successful landing. 
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SECTION VIII 
APPENDIX A 
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1. INPUT PREPARATION 



Figure 12 illustrates the worksheet entries for the four 
leading cards required as input with every T/E deck. The detailed 
card formats for these leading cards, the T/E cards, and the T/A 
cards are outlined in the remainder of Appendix A. 

In the worksheet of Figure 12, card 1 contains the Organization 
Number, Name and Hull designation of the assigned embarkation ship, 
the date cards were received by the Embarkation Team Commander and 
the identifying letters T/E. The second card gives the classifi- 
cation of the documents (Top Secret, Secret, or Confidential) and the 
identifying letters T/E. The entries on the third card indicate the 
niamber of days of ammunition required, the number of hours of fuel 
required, the number of rations (meals) required, the T/A number of 
the rations, the number of gallons of water per man per day required 
and the identifying letters T/E. The fourth card contains a break- 
down of the personnel in the unit. It shows the unit number, number 
of generals, colonels, lieutenant colonels, majors, captains, 
lieutenants (first and second), warrant officers, master sergeants, 
staff non-commissioned officers, other enlisted men and the identifying 
letters T/E. 
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A variety of card formats are used for input to the EMBARK system 
they are: 



Card 1 



Card 2 



Card 3 



Leading Cards 


(see worksheet 1, Figure 12) 


CARD 


COLUMNS 


CONTENTS 


1 


- 5 


Organization 


6 


- 10 


Blank 


11 


- 42 


Ship Description 


43 


- 50 


Blank 


51 


- 58 


Date of Embarkation 


59 


- 72 


Blank 


73 


- 75 


T/E 


CARD 


COLUMNS 


CONTENTS 


1 


- 5 


Blank 


6 


- 21 


Classification 


22 


- 72 


Blank 


73 


- 75 


T/E 


CARD 


COLUMNS 


CONTENTS 


1 


- 5 


Day of Ammunition 


6 


- 10 


Hours of Fuel 


11 




Quantity of Rations 
(number of meals) 


12 


- 16 


T/A number of Rations 


17 


- 21 


Quantity of Water 
(gallons /man/day) 


22 


- 72 


Blank 


73 


- 75 


T/E 
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Card 4 



T/E Cards 



Note: 1. 

2 . 



CARD COLUMNS 
1-9 
10 - 14 
15 - 19 
20 - 24 
25 - 29 
30 - 34 
35 - 39 
40 - 44 
45 - 49 
50 - 54 
55 - 59 
60 - 72 
73 - 75 



CONTENTS 

Blank 

Number of Generals 
Number of Colonels 
Number of Lt. Colonels 
Number of Majors 
Number of Captains 
Number of Lieutenants 
Number of Warrant Officers 
Number of Master Sergeants 
Number of other Staff NCO 
Other Enlisted 
Blank 
T/E 



CARD COLUMNS 



CONTENTS 



1-5 



Organization 



6-9 
10 - 14 



T/E Number 
T/A Number 



15 - 19 Quantity Allowed 

20 - 24 Blank 



25 



Garrison Item 



30 - 37 Vehicle Registration Number 

All numbers will be punched in fixed-point form, right 
justified . 

Garrison items are indicated by a**r*punched in coliomn 25. 
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T/A Cards First Card 



COLUMNS 
1-5 
6-18 
19 - 23 
24 - 25 
26 - 34 
35 - 39 
40 - 49 
50 - 59 
60 - 64 
65 - 69 
70 - 75 

76 

77 - 79 
80 

Second Card 



CONTENTS 
T/A Number 

Federal Stock Number 
Identification Number 
Unit of Issue 
Standard Package 
Square Feet 
Cubic Feet 
Weight 

Combat Allowance 
Combat Training Allowance 
Training Allowance 
Type of Fuel (G, D, or K) 
Fuel Consumption Rate/Hr. 
Control Number 

(For those items showing description) 



COLUMNS 



CONTENTS 



1-5 
6-9 
10 - 72 



T/A Number 

Identification Number 
Description 



Note: 1. Numbers for T/A stock number, identification number, unit 

of issue and standard package will be in fixed -point format, all other 
numbers will be floating-point format, to two decimal places. 

2. Control numbers will be 1 - 9 for program control; this 
control number indicates the nvimber of description cards following 
this T/A card. 
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Class V Cards 



COLUMNS 


CONTENIS 


1-3 


Line Niomber 


4-12 


DOD Ammanition Code 


13 - 16 


Basic Allowance 


17 - 20 


Combat Assault Expenditure 
Rate 


21 - 24 


Extended Operations 


25 - 28 


Ashore Expenditure Rate 


29 - 31 


Rounds, Primer, etc. 


32 - 34 


Fuzes 


35 - 37 


Extra Fuzes 


38 - 41 


Quantity per Package 


42 - 45 


Weight per Package 


46 - 49 


Cube per Package 


50 - 52 


Remarks 


53 - 55 


Line Reference Number 


56 - 59 


T/E Number 


60 


Blank 


61 - 62 


Individual Allowance 


63 - 75 


Blank 


76 - 80 


T/A Number 



Note: 1. Numbers for line number, DOD ammariition code, basic 

allowance, quantity, remarks, line reference member, T/E number, 
individual allowance and T/A number will be in fixed»point format. 
All other numbers will be float ing«point form to a maximum of two 
decimal places. 
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SECTION IX 
APPENDIX B 
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1, GENERAL OPERATING INSTRUCTIONS 



CONTROL CARDS 

Each T/E deck must be followed by a card with" 99999” punched in 
columns 5 through 9* After the last T/E deck and prior to the" 99999” 
card must be a card with" 98 765" punched in columns 5 through 9. 

TAPE ASSIGNMENTS 

The following are the required tape assignments: 

Tape #1 Fortran *60 Monitor 

Tape #2 BCD Input ("'I") 

Tape #3 T/A Binary Data Tape 

Tape #4 -- Scratch Tape ("S") 

Tape #5 BCD Output ("0") 

OPERATION OF 1604 

The "three -argument monitor" control is used with the normal 
Fortran *60 Monitor. After loading the tapes as indicated above, 
type on the typewriter the following: "Monitor, 2, 5, 4." This 

option provides approximately 30,000 cells of memory for the program 
and data. Other combinations of tape assignments may be used, but 
the Fortran Monitor selects as scratch tape the lowest available 
unassigned tape unit. For this reason, it is important to remove the 
lockout ring from the Binary Data Tape to preclude over-writing of 
data. 

The general form of the console statement is: 

"Monitor, I, 0, S." (Punctuation imperative) 
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Modus Operand!; (After loading tapes) 

1. Push Auto-Load button 

2. Type "Monitor, I, 0, S." 

3. Tape "I" is read and compilation performed. 

4. During compilation the Fortran statements of the program 
are copied on Tape "0" , 

5. When compilation is complete, the object program is written 
in Binary on Tape "S'*. This tape then is rewound and the 
program is read back into memory beginning at address, 

4000 (octal) . 

6. The program then reads in the Binary Data Tape, the 1st 
T/E from tape "I", and writes out the UCM, TS&PT, UP&TT 
and C&LA for the T/E #1. 

7. If more than one T/E is used, steps 7 and 8 are repeated 
until T/E decks are exhausted. 

8. When the "..END" card is sensed, the program stops and 
"..end" is typed on the typewriter. 

9. Listings are printed off-line on the IBM 1403. 

AVAILABILITY OF DATA TAPES AND PROGRAMS 

Data tapes, system program cards and data cards are available 
from the United States Naval Postgraduate School Computer Facility 
Library. 

2. MINOR SUBROUTINE LISTINGS ON FOLLOWING PAGES. 
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SUBROUTINE WUCf' 

OOIMENSION ITANBR(1750), ISTDPKG( 1750),SQ( 1750 ) ,CU ( 1 750 ) ,WT(1750)f 
1CA( 1750) .FUEL ( 1750) ,GAL( 1750 ),OESC( 1750) ,NTE(»420) ,NTA (420) , 
2UMT(420),IQTY(420), MLO ( 4 20 ) , LN ( 33 1 ) , BA ( 33 1 ) t D( 33 1 ) , 

3PRIM(331 ) ,FUS(331) ,XFUS(331 ),QTW ( 331 ),WTV(331 ) , CUV (3 31 ). 
4LNREF(331), ITAV(50) ,SWTVI50I, 

5SCUV(50) ,CUUPT(39).WTUPT(39), 

6SHIP(4). . 

7 CLASS(2),NTOV(331 ),NTAV(331 ), 

8 XLO( 1CC),KTA(100 ), 

9 SUM(7),PEN( 13),TEMP(6),STKNBR(2) , WOESC ( 6 ) , FL AGS (4 ) 



OCCNMCN ITANER, ISTDPKG.SQ.CU, WT.CA , FUEL, GAL t DESC fNTE fN TA* 
lUNIT, IQTY,EG,MLD,LN,BA,C,PRIM,FUS , XFUS,QTYV, KTV,CUV, ^ 
2LNREF,BACU,BAWT,OOAWT,COACU, ITAV, SWTV ,SCUV,CUUPT , WTUPT, 
3CUUPTT,WTUPTT,STCNS,XT0NS.SCUPT38 ,SQUPT39,00A,HRSFUEL , 
4CATE,SHIP,CRG,CLASS,NT0V,NTAV,N1, N0,M1,KV,LL, 
5LINE,NPAGE,XLD,KTA,K1 , 1 1 , JJ.QRATS , NRATS, SUM,MEN,FLAGS 
EQUIVALENCE ( KEN ( 1 ) , KC7 ) , ( MEN ( 2 ), MC6 ) , 

1 (KEN(3),K05), (MEN(4) ,K04). (MEN(5) ,M03), > \ 

2(KEN(6),K01),(MEN(7),KW).(MEN(8).ME7), • 

3(KEN(9),ME5) , (MEN( 10) ,K.E1 ) , (MEN(1 1 ),MOT) , i 1 

4 (KEN( 12) .MET) , (MEN( 13 ) ,MTOT) , , ‘ 

5 (FLAGS(1),FLAG),{FLAGS(2),FLAG2), .( 

6(FLAGS(3),FLAG3),(FLAGS(4),FLAG4) ;ij 



\ . 



i V 



li 



! I 



! i 



I ! 



L = LL 

IF(LINE-80) 9,19,19 
19 LINE=0 ' 

PRINT 99 
PRINT 102 
LINE=LINE+4 
9 ICT=IQTY(II) 

00 7 1=1, ICT 
SCU=0. 

SWT=0, 

SC = 0. 

HT = 0. 

HCU=0. 

HWT=0. 

XKCU=0. 

XMWT=0. 

KC=N0+1 
C=NO 

IF (FLAG4) 32,31,31 
32 XKCU=CU(0) 

XKWT=WT(0) 

GC TO 56 

31 IF(MLD(II)) 18,18,27 
1F(SQ( JJ ) ) 17, 17, 18 
18 IF(30000-ITANBR( JJ ) ) 1 1,27, 17 
11 IF(39999-ITANBR( JJ) ) 13,27,27 
13 IF (50000-ITANBR( JJ ) ) 16,27, 17 

16 IF(69999-ITANBR( JJ) )17,27,27 

17 IF (WT(JJ)-ICOCO.) 2,1,1 

1 HWT=WT(JJ) 

HCU=CU(JJ) 

GO TO 56 

2 IF (SQ( JJ) ) 4,4,3 

3 HT=CU( JJ )/SQ( JJ) 

SC = SO(JJ) ; . 

GC TC 1 1 

4 IF (WT( JJ)“1C0. ) 5,5,6 

5 XKCU=CU(JJ) 1 

XKWT=WT(JJ) ‘ 

GC TO 56 

6 SCU=CU(JJ) I 

S W T = WT ( J J ) 

56 PRINT 57 L ,C , OESC ( J J ) ,SCU , SWT . SQ, HT , HCU , HWT , XMCU , XMWT « 

57 FCRMAT(2X, I3,F8.0,3X,A8,40X,F6. 1, F8. 1 ,F6.0,F5. 1 ,F7. 1, F8. 0 , F7 . 1 , F6. 

10) : i , 



t 

! ; 



I . 
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SUNd ) = SUM(1 )•^SCU i 5 • 

StK(2)=SUK(2 )+SWT i M I | 

SU^'(3)=SUM(3)+SG ; ! > 

SUN(U)=SUM (4 )+HCU’» i • : 

SUM(5)=SUM(5)+HWT 
SUN{6)=SUM(6)+XMCU 
SL'M(7)=SUM(7)+XMKT 
LINE=LINE+1 
IF(FLAGU) 60,61,61 

60 FLAG4=1. 

GC TO 27 

61 IF(LINE-80) 7,58,58 
58 PRINT 80 CLASS 

80 FCRNATI 105X.2A8 , /40X, 33HBLAND/H ANSEN THESIS -EMBARK- 1964 ) 

99 FORMATIlHl ,1X,14HUP+TT BOX NBR ,4 X , 4H0ESC , 43X , 14HSTAN CARD CARGO, 
16X,14HUNITIZEC CARGO, 10X,6HMOBILE,/1X,6HLIN N0,87X, » 

211HHEAVY LIFTS, 1 IX, 6HL0ACED/66X,4HCUFT,3X,7H WT(LB) 3 X, 4HSCFT ,3X, 
32HHT,2X,4HCUFT,3X,2HWT,5X,4HCUFT, 3X,6HWT(LB) ) 

PRINT 102 

LINE=4 ; ' . 

7 CONTINUE 

102 F0RMAT(120H 



1 



) 



PRINT 103 SUM 

103 F0RMAT(50X14HLINE TOTALS 
10 ) 

SCUPT38 = SCUPT+SUMSC4SCUPT38 
PRINT 102 
27 RETURN 
END 



• i 

! j 

I 



,F6. 1, F8.1,F6.0,F5.1,F7*1, F0. 0,F7. 1 ,F8. 

,1 ' 

ll • 

1 . • 

! ;j 

I ■:! : 



5 I 
1 1 

i ' ; 

; i.W 
} ^ .• 
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SUEROUTINE R^iTIONS 

OD I MENS I ON ITANBR(1750 ), ISTCPKG( 17 5C ) , SG ( 1 750 ) ,CU( 1750 ) ,WT(175C) 
1C/S( 1750) , FUEL n 75^0 ),G^L( 1750 ),DESC( 1 750 ) . NTE ( 420 ) , NTA (420), 
2UNIT(420), IQTY(420) , MLD(420 ) ,LN ( 33 1 ) , BA ( 331 ) ,0( 33 1 ) , 

3PRIM(331 ). FUS (331 ),XFLS(331 ),GTYV (331 ),WTV(331 ) ,CUV(331 ) , 
4LNREF(331), I TAV ( 50) , SWTV.( 50 ) , 

5SCUV(50) ,CUUPT(39),WTUPT(39), 

6SHIP(4). 

7 CLASS(2),NT0V(331 ),NTAV(331 ), 

8 XLD( 1CC),KTA(100), 

9 SUM(7),MEN(13),TEMP(6),STKNBR(2),WDESC(6),FLAGS(4) 

OCCMMON ITANBR, ISTDPKG,SC,CU,WT,CA , FUEL,GAL,OESC,NTE,NTA, ‘ 
1UNIT,IQTY,EG,MLD,LN,BA,D,PRIM,FUS,XFUS,QTYV,WTV,CUV, ' 
2LNREF,BACU,BAWT,C0AWT,CCACU, I TAV, SWTV , SCUV,CUUPT, WTUP T, 
3CUUPTT,WTUPTT,STCNS,XT0NS,SCUPT38 , SQUPT39, OOA, HRSFUEL , 
4CATE,SHIP,CRG,CLASS,NTCV,NTAV,N1, N0,M1,KV,LL, 
5LINE,NPAGE,XLD,KTA,K1 ,I I , JJ,QRATS ,NRATS,SUM,MEN,FLAGS 

ECUIVALENCE ( MEN ( 1 ) , MC7 ) , ( MEN ( 2 ), M06 ) , • i 

1 (MEN(3),M05) , (MEN(4),MC4), (MEN(5) ,M03), i : 

2(MEN(6),M01),(MEN(7).MW),(MEN(8). ME7), ' 

3(MEN(9),ME5),(MEN(10),ME1),(MEN(1 1),M0T), i I 

4(MEN(12),MET),(MEN(13),MT0T), i 

5 (FLAGS( 1 ), FLAG), (FLAGS (2), FLAG2), ! , 

6(FLAGS(3),FLAG3),(FLAGS(4),FLAG4) ! ■ 



SCU=0. 

SWT=0. 

SC=0. 

HT=0. 

HCU=0. 

HUT=0. 

XMCU=0. 

XMWT=0. 

KK= 1 

IF(NRATS-ITANBR(KK) ) 4,3,2 

KK=KK+1 

IF(7-KK)4, 1, 1 

X=MTOT 

JJ=KK 

Y=ISTDPKG(KK) 

Y=Y*CA (KK) 

C=CRATS»X/Y 
CU(0)=C*CU (KK ) 
WT(0)=G*WT(KK) 
CUUPT(1)=CU(C) 

UTUPK 1 )=WT(0 ) 

FLAG4=“1. 



CALL WUCM 
CALL WATER 
CALL WUCM 
4 END 



! 5 
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1 
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i 1 

, i- 



T 

, 1 



. i 



86 



\ ' 



I 





I 




I I 



• ofi 






4- 



' i ^ 

l« M 

I 

I 

I I 




4 

I 



I'-l 







SUBROUTINE WCANOLA 



ODINENSION ITANER( 1750 ) ,ISTDPKG( 17 5C ) , SO ( 1 750 ) , CU ( 1750) ,WT{175C)f 
ICA ( 1750) .FUEL! 1750) , GAL ( 1 750 ) . OES C ( 1 750 ) . NTE ( 420 ) ,NTA(420), 
2UNIT(420), ICTY (420), MLD ( 420 ) , LN { 33 1 ) ,8A ( 331 ) ,D( 33 1 ) , 

3PRIN,(331 ),FUS(331),XFUS{231),QTW{331 ),WTV(331 ),CUV(331), 
4LNREF(331), ITAV(50) ,S«TV(5C), 

5SCUV(50) ,CLUPT(39) ,WTLPT(39), 

6SHIP(4), i 

7 CLASS(2),NT0V(331),NTAV(331), 

8 XLC( 100) ,KTA( ICO ) , 

9 SLN{7),N,EN(13),TEMP(6),STKNBR(2),W0ESC(6),FLAGS(4) 

OCONKON ITANBR, ISTDPKG,SQ,CU,WT,CA, FUEL, GAL, OESC, NTE, NTAt J ! 
lUMT, IQTY,EG,^'LD,LN,BA,D,PRI^',FUS ,XFUS,QTYV,V»TV,CUV, ^ | 

2LNREF,BACU,EAWT,COAWT,OOACU, ITAV, SWTV , SCUV,CUUPT , WTUP T, 
3CUUPTT,WTUPTT,ST0NS,XTCNS,SCUPT38,SQUPT39,D0A,HRSFUEL , K 
4DATE, SHIP, GRG, CLASS, NTCV,NTAV,N1, NO, Ml, KV,LL, 'i 

5LINE,NPAGE,XLD,KTA,K1 , 1 1 , JJ,QRATS ,NRATS, SUM,KEN,FLAGS 



I 



19 



18 
1 1 
13 



2 

3 



4 

5 



\ ' 



i. 

I, 



< i 

r 



EQUIVALENCE { KEN (1 ) . MC7 ) , ( MEN ( 2 ), M06 ) , 

1 (MEN(3),M05) , (MEN(4KmC4),(MEN(5) ,M03), 

2 (MEN(6) ,M01 ) ,( MEN (7), MW) , ( MEN { 8 ), M E7 ) , 

3(KEN(9),ME5) , (MEN(10),ME1 ),{MEN(1 1 ),M0T), 

4 (MEN( 12) ,MET) , (MEN( 13 ),MTOT) , 

5 (FLAGS! 1 ) .FLAG) , (FLAGS (2),FLAG2) , 

6 (FLAGS(3) , FLAG3) , ( FLAGS ( 4 ) , FLAG4) 

IF(LINE-80) 9,19,19 
LINE=0 
PRINT 99 
PRINT 102 

LINE=LINE+4 ' • ‘ 

IQT=IQTY(II) 

DO 7 1=1, ICT 
SCU=0. 

SWT=0. 

SG = 0. 

HT = 0. 

HCU=0. 

HWT=0. 

XMCU=0. 

XMWT=0. 

NC=N0+1 
C=N0 

IF(ML0(II ) )18,18.17 
IF (SQ( JJ) ) 17, 17, 18 
IF(30000-ITANBR( JJ) )1 1,27, 17 
IF (39999- I TANBR ( JJ) ) 13,27,27 
IF (50000-1 TANBR( JJ )) 16,27, 17 
.16 IF(69999-ITANBR( JJ) ) 17,27,27 
17 IF (WT(JJ)-ICOOO. ) 2,1,1 
1 HWT=WT(JJ) 

HCU=CU(JJ) 

GO TO 156 
IF (SQ( JJ) ) 4,4,3 

HT=CU( JJ)/SC( JJ) I /. 

SC=SQ(JJ) ; ! 

GC TO 1 I 

IF (WT(JJ)-ICO. ) 5,5,6 1 

XMCU=CU(JJ) 

XMWT=WT(JJ) 

GC TO 156 
6 SCU=CU(JJ) 

^UT = UIT ( I M 

CLIFTS = G « WT(JJ) 7 lOCOO. 

NCCNT = ISTOPKG! JJ)*ICTY(II) 

156 L=LL 

PRINT 157 L, UNIT! II ),CESC(JJ) , IQTY( II ) , SCU, SWT, QL I PTS , SQ ,HT ,HWT« 

ixnouxmwx 

157 FORMAT! IX, 15 , A8 , A8 , 5X , 15 , 1 1 2 , F8 .1 , F 1 0 . 1 , 2F6,0,F7.1, F0.1,F1 1.0) 
SUM(1 )=SUM( 1)+SCU 



i ! 






SUM(2)=SUM(2)^SWT 
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SL'K(3)=SUM(3)+SQ . ! , 

SUN(4)=SUM(4)+HCU ^ : i 

SU^<(5)=SUM(5)+HWT | . 

SUM(6)=SUM(6)+XMCU’» j i 

SUN(7 )=SUM(7)+XMV.T • , j 

PSCU = PSCU + SCU ! • 

PSWT=PSWT+SWT , ■ t . 

PSC=PSQ+SQ ‘1 

PHCU=PHCU+HCU , 

PHUT=PHWT+hWT . ! ’ 

PXPCU=PXKCU+XNCU ; I 

PXPUT=PXMWT+X«WT 

LINE=LINE+1 1 • 

IF(LINE-80) 7,58,58 ' / ' 

58 PRINT 102 < 

PRINT 203 PSCU,PSWT,PSC,PHCU,PHWT,PXKCU,PXMWT I 

PSCU=0. ! 

PSWT=0. 

PSC=0. 

PHCU=0. , ' 

PHWT=0. 

PXNCU=0. . 

PXKWT=0. 

PRINT 80 CLASS 

80 F0R^AT(105X,2A8 , /40X ,33HBLAND/HANSEN THESIS -EMBARK- 1964 ) 

211HHEAVY LIFTS, nX.6HLOACED/66X,4HCUFT,3X,7H WT(LB) 3 X , 4HSQFT , 3X , 
32HHT,2X.4HCUFT,3X,2HWT,5X,4HCUFT, 3X,6HWT(LB) ) 

99 FORMAT! U,46HUP+TT UNIT DESCRIPTION NUMBER AND NO. ROUNDS, ,2X, 



1 


71HCUFT 


KT! LB) 


NO. 


SQ 


HT CU 


WT! LB) 


CUFT 


WT(LB) 


2 


WHERE 


/ 




\ 








3 


IX, 


46HLINE 








TYPE 


GALLONS 


, 2 X , 


4 


71H 




LIFTS 


FT 


FT 








5 


STOWED 


/ 














6 


IX, 


49HNC. 






CONTAINERS 


RATIONS, 


ETC. ) 



PRINT 102 
LINE=4 
7 CONTINUE 

102 FCRMAT(120H 

1 .... ) 

IF(M1-II ) 202,202,27 

202 PRINT 203 PSCU, PSWT , P.SC , PHCU , PHWT , PXMCU, PXMWT 
PRINT 204 SUM 

203 FORMAT! IX, 1 1HPAGE TOT ALS , 30X , F8 .1 , F 1 0 . 1 , 2F6 . 0, F7. 1. F8. 1 ,F1 1 .0 ) 

204 FORMAT! IX, 12HG''AND TOTAL S ,29X , F8. U F 1 0. 1 , 2F6. 0 , F7.1 , F8. 1 , F 1 1 • 0 ) 

27 RETURN j . t 
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SUBROUTINE V»/JTER 



00 I PENSION IT/1NBR(1750 ), ISTDPKG( 17 5C ) , SQ ( 1 750 ) ,CU ( 1 750 ) » WT ( 1 75C ) 
1C/J( 1750) .FUEL (1750) ,G/»L ( 1 750 ) , DES C ( 1 750 ) , NTE { 420 ) . NTA (420) , 
2UNIT(420) , IQTY(420) , PLD(420 ) , LN ( 33 1 ) f BA ( 331 ) ,0( 33 1 ) , 

3PRIM(331 ),FUS(331),XFUS(231),GTYV(331 ),WTV(331 ),CUV(331)i 
4LNREF(331), ITAV( 50) , SWtV(5C ) , 

5SCUV(50) ,CUUPT(39) ,WTUPT(39), 

6SHIP(4), 

7 CLASS(2),NT0V( 331 ),NTAV(331 ), 

8 XLD( 100),KTA(100 ), 

9 SUM(7),PEN( 13),TEMP(6),STKNBR(2)tkDESC(6)tFLAGS(4) 



OCCKMON ITANBR, ISTDPKG,SQ,CU,WT,CA,FUEL,GAL,DESC,NTE,NTA, 
lUNIT, IQTY, EG,KLO,LN,BA,C,PRIM,FUS, XFUS,QTYV,WTV,CUV, ' 
2LNREF,8ACU,BAWT,C0AWT ,COACU, ITAV, SWTV , SCUV.CUUPT, WTUP T , 
3CUUPTT,WTUPTT , SIGNS, X TONS, SGUPT 38 , SGUPT39, OOA.HRSFUEL , 
4DATE,SHIP,CRG,CLASS,NTGV,NTAV,N1, N0,M1,KV,LL, 
5LINE,NPAGE,XLD,KTA,K1 ,I I ,JJ,QR ATS , NR ATS, SUM, KEN, FLAGS 



ECUI VALENCE (K£N( 1 ) ,M07) , (MEN (2), M06) , 

1 (KEN(3),M05) , (MEN(4),KC4), (MEN(5) ,KC3), 
2(KEN(6),M01 ) , (KEN(7).KW) , (MEN ( 8 ), MET ) , 

3 (KEN(9) .ME5) . ( MEN ( 1 0 ) ,KE 1 ) , ( MEN ( 1 1 ) ,MOT) , 

4 (MEN ( 12) , MET I , (M£N( 13),MT0T ), 

5 (FLAGS! 1 ), FLAG) , (FLAGS (2), FLAG2), 

6(FLAGS(3) ,FLAG3) , (FLAGS(4) ,FLAG4) 

SCU=0. 

SWT=0. 

SC=0. ' 

HT = 0. 

HCU=0. 

HWT=0. 

XMCU=0. 

XMWT=0. 

KK=1 

TCT=MTOT 

WTUPT(2)= T0T*H20/10. 

CUUPT(2)= TCT»H2C/6. 

IF(51030-NTE(KK) ) 17,3,2 
KK=KK+1 

IF(I-KK) 17,1,1 

3 G=IQTY(KK) 

X=MTOT 

G=H20*X 

G=G-(Q*400.) 

17 K K K = 1 

4 IF( ITANBRIKKK )~NTE(KK) )5,6,8 

5 KKK=KKK+1 



1 

2 



IF(N-KKK)8,4,4 
6 XMCU=400.*8.«C 



IF(G)7,7,8 

8 KK=1 

11 IF (44250-NTE(KK) )7, 10,9 

9 KK=KK+1 
IF(I-KK)7, 11,11 

10 K K K = 1 

14 IF ( ITANBR (KKK)-NTE(KK )) 12,13,13 

12 KKK=KKK+1 
IF(Nl-KKK) 13,14,14 
C=IQTY(KK) 

G=G-(Q*5.) 

G=G-(X/4.) 

IF(G)7,7,15 
G ^ 

SCU=CU(KKK)*C 
SWT«WT(KKK)*50. 

END 
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SUERCUTINE ECUIP 

OC I PENS ION ITANP.R( 1750 ), ISTDPKG( 17 50), S'Q( 1750) ,CU( 1750 ) ,WT( 1750) 
lC/»( 1750),FUEL(1730),G/iL( 1750),0ESC( 1750) , NTE ( 420 ) , NTA (420), 
2UMT(420) , ICTY (420) , NLD(420 ) . LN ( 33 1 ) , B A ( 33 1 ) ,C( 33 1 ) , 

3PRI«(331 ) .FUS(331 ),XFUS( 3 3 1 ) , CT YV ( 33 1 ) , WT V( 33 1 ) ,CUV (3 3 1 ) , 
4LNREF(331), ITAV( 50) , SWTV (50 ) , 

5SCUV(50) ,CUUPT(39),WTUPT(39), 

6SHIP(4), 

7 CLASS(2),NT0V( 331 ),NTAV( 331 ), 

8 XLO( ICC) ,KTA( 100 ), 

9 SUM (7), PEN ( 13) , T EMP ( 6 ) ,S TKNBR ( 2 ) ,WDESC(6) , FLAGS (4) 

OCCMMON ITANBR, ISTOPKG,SQ,CU,WT,CA , FUEL, GAL, DESC, NTE, NTA, ; 
lUNIT, ICTY,EG,MLD,LN,BA,C,PRIM,FUS,XFUS,QTYV,V>TV,CUV, / , 

2LNREF, BACU,BAWT,DOAWT ,CCACU, ITAV, SWTV , SCUV.CUUPT , WTUP T, 
3CUUPTT,WTUPTT,STCNS,XT0NS,SQUPT38 ,SCUPT39,00A,HRSFUEL , 

4DATE, SHIP, CRG, CLASS, NT0V,NTAV,N1, NO, Ml, KV,LL, i 

5LINE,NPAGE,XLD,KTA,K1, II ,JJ,GRATS , NR ATS, SUM, MEN, FLAGS * 



ECU I VALENCE (MEN( 1 ) .MC7) , (MEN(2 ), MOd) , 

1 (MEN(3 ), M05) , (MEN(4),MC4), (MEN(5) ,M03), 

2 (MEN (6), MOD , (MEN (7), MW) .(MEN (8), ME7), 
3(MEN(9),ME5),(MEN(10),ME1),(MEN(11) ,MOT) , 

4 ( MEN ( 12) ,MET ) , (MEN( 13),MT0T ), 

5 . ( FLAGS! 1 ), FLAG) , ( FLAGS ( 2 ) , FLAG2 ) , 

6(FLAGS(3) ,FLAG3) , (FLAGS(4) ,FLAG4) 



READ 1 ORG, SHIP, CATE 

1 F0RMAT(A5,5X,4A8,8X, AE) 

READ 2 CLASS 

2 FORMAT (5X,2A8 ) 

READ 3 D0A,HRSFUEL,CRATS,NRATS,H20 

3 FCRMAT(F5.0,F5.0,F1.0, I5,F5.0) 

READ 444 MOT , M06, M05 ,M04 , M03, MC 1 , MW ,ME7 , ME5 ,ME I 

444 FCRMAT(9X, 1CI5) 

MCT=M06+M05+MC4+M03+MC1+MW+M07 
MET=ME7+ME5+ME1 
M.TOT = MCT + MET 
1 = 1 

500 READ 4 UNIT! I ) ,NTE( I ) ,NTA( I ), ICTY ( I ),EG,MLD( I) 

4 F0RMAT(A5, 14, IS, I5,5X,F1.0,4X,A8) 

IF(NTA(I ) -987 65) 876, 8 75, 676 

875 FLAG=-1. 

876 IF (NTA( I )-99999)5,9,9 

5 IF(EG) 6,6,500 

6 1 = 1+1 » * 

GO TO 500 • 

9 M1=I-1 , ! 

END 
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SUBRCUTINE CL^SSV 



i 1 






. OD I PENSION IT/kNRR( 1750),ISTDPKG(17 5C),SQ( 1750),CU( 1 750 ) , WT ( 1 75C ) t 
1CA( 1750) , FUEL n 750 ) ,G/>L( 1 750 ) ,D ES C ( 1 750 ) , NTE ( 420 ) , NTA (420), 
2UNIT(420) , IGTY(420) , ^'LD ( 4 20 ) , LN ( 33 1 ) , BA ( 331 ) ,0( 33 1 ) , 

3PRIN(331 ),FUS(331),XFLS(331),GTYV(331 ),WTV(331 ) ,CUV(331), 
4LNREF(331), I T AV ( 50) , SWTV ( 50 ) , 

5SCUV(50) ,CUUPT(39) tWTUPT (39) , 

6SHIP(4). 

7 (:lASS(2),NTOV(331 ),NTAV(331 ), 

8 XLD( ICO ) ,KTA( 100 ) , 

9 SLM(7) ,PEN( 13) ,TEMP(6),STKNBR(2),WDESC(6) ,FLAGS(4) ; 

OCCf'MON ITAN8R, ISTDPKG,SQ,CU,WT,CA, FUEL, GAL, DESC, NTE, NTA," ' 

1UNIT,IQTY,EG,NLD,LN,BA,C,PRIM,FUS,XFUS,QTYV.WTV,CUV, / ^ 

2LNREF,BACU,EAknT,C0AWT,CCACU, ITAV, SWTV , SCUV,CUUPT, WTUP T, i 
3CUUPTT,WTUPTT,STONS,XTONS,SQUPT33 , SCUPT39 , DOA .HRSFUEL , 
4DATE,SHIP,CRG,CLASS,NTCV,NTAV,N1, N0,M1,KV,LL, 
5LINE,NPAGE,XLD,KTA,K1 ,I I , JJ , QRATS , NRAT S, SUM, KEN, FLAGS 

ECUIVALENCE ( KEN ( 1 ) , MC7 ) . ( MEN ( 2 ), MOfc ) , t 

1 (KEN(3),K05) , (KEN(4),KC4K (MEN(5) ,KC3), ! 

2(KEN(6),M01),(KEN(7),KW),(MEN(8).ME7), ; 

3(KEN(9) ,KE5) , (KEN( 10) ,KEl ) , (K,EN(1 1 ),MOT) , j 

4(KEN(12),MET),(MEN(13),KT0T), ‘ 

5 (FLAGS(1),FLAG),(FLAGS(2),FLAG2), < i , 

6(FLAGS(3),FLAG3),(FLA6S(4),FLAG4) . ,f 

CC 500 K=1 ,50 

SKTV(K)=0. ' 

500 SCUV(K)=0. 

K=1 

CC 506 J=1 ,K1 ,>■ r 

00 506 1=1,331 

IF(NTAV( I)-NTA(J) ) 506, 502, 506 
IF (NTOV( I ) ) 503,503,502 

502 IF (NTE( J )-NTCV( I ) ) 506,503,506 

503 IF(QTYV( I ) )506,506,504 
IF (LNREF(D) 504,504,51 1 

511 CC 512 L=l,331 
DC 512 IT=1,331 

IF (LN(L)-LAREF( IT) ) 512,513,512 
513 C=ICTY(J) 

EACU=BA(L) «PRIK(L)*CUV( IT)*Q + BACU 
BAWT=BA(L)*PRIM(L)*WTV( IT )*C+BAWT 
DCAWT=D(L)«PRIK(L)*WTV(IT)*COA 
DCACU=D(L) •PRIK(L)*CUV( IT )»DOA 

512 CONTINUE 

504 BC = BA( I )/QTYV ( I ) 

FAC=1 . + PRIK( I )*FUS( I )+XFUS( I) 

BAWT =(BAWT +BQ*G *WTV( I) 

BACU =(BACU +BC*G *CUV(I))«FAC 

DCAWT =(CCAWT +0 ( I ) * EG*WT V ( I ) ) *F AC*DO A 
OOACU =(COACU +C( I )*EQ*CUV( I) )*FAC*OOA 
ITAV(K)=NTA( J) 

IF (LN(I)-20) 516,516,505 

505 SWTV( K)=EAWT+DCAWT 
SCUV(K)=BACU+CCACU 
K = K+1 
GC TO 515 

516 KLP=51-5 

SKTV( KUP)=BAWT+DOAWT 
SCUV(KUP)=BACU+OOACU 
515 BACU=0. 

BAUT=0. 

0GAWT=0. 

0CACU=0. 

506 CONTINUE 



+OOAWT 

+OOACU 



)*FAC 



KV=K-1 

WTUPT(29)=0. 

CUUPT(29)=0. 
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CUUPT(30)=C. • 

WTUPT(30)=0. 

CC 520 K = 1 ,KV 

CUUPT(30)=CUUPT(30)+SCUV(K) 

520 WTUPT(30 ) = WTUPT( 30)+SV»TV(K) 
K — 5 C 

521 CUUPT(29)=CUUPT(29)+SOJV (K) 
WTUPT (29 )«WTUPT{ 29)+SViTV (K) 
K — K*“ 1 

IF (SWTV(K)) 522,522,521 

522 END 
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SUBROUTINE PETROL 



00 I PENSION IT/SNBRI 1750 ), ISTDPKGI 17 5C ) ,SQ( 1 750 ) ,CU ( 1 750 ) » WT ( 1 75C ) t 
IC^ (1750) .FUEL ( 1750i ,G/1L ( 1750 ) ,DESC( 1 7 50 ) , NTE ( >4 20 ) , NTA (420) , 
2UNIT(420 ) , IQTY(420) , NLD ( 420 ) , LN ( 33 1 ) , BA ( 231 ) ,0( 33 1 ) , 

3PRIN(331 ),FUS(231),XFUS(231),GTYV(331 ),WTV(331 ),CUV(331), 
4LNREF(331), I TAV ( 50) , SWTV (5C) , 

5SCUV(50) ,CUUPT(39),WTUPT(39), 

6SHIP(4). 

7 (:LASS (2),NT0V( 231 ),NTAV( 33 1 ), 

8 XLC( 1C0),KTA(100 ), 

9 SUN(7)»NEN(13),TENP(6)»STKNBR(2),V»qESC(6),FLAGSI4) i 

OCOKNON I TAKER , I STDPKG , SC , CU , WT , CA , FUEL , G AL , DESC , NTE ,N TA ,/• 

UNIT, ICTY, EG,KLD,LN, EA,C,PRIM,FUS ,XFUS,QTYV,WTV,CUV, 
2LKREF,BACU,BAWT,C0AWT,C0ACU, I TAV, S WT V , SC U V, CUUPT , WTUP T, .• 

3CUUPTT,WTUPTT ,ST0NS,XT0NS, SGUPT38 , SCUPT39, OOA , HRSFUEL t 
4DATE,SHIP,CRG,CLASS,NTCV,NTAV,N1, N0,K1,KV,LL, 
5LINE,NPAGE,XLD,KTA,K1 , II ,JJ,CRATS ,NRATS, SUM, KEN, FLAGS ! 



ECUI VALENCE (MENd ) , MC7 ) , ( MEN ( 2 ), M06 ) , 

1 (MEN(3),M05), (MEN(4WmC4), (MEN(5) ,MC3), 

2 (MEN( 6) ,M01 ) , (MEK(7) ,KW) , (MEN(8 ), MET) , 
3(MEN(9),ME5),(MEN(10),ME1),(MEN(1 1),M0T), 

4 (MEN( 12) ,MET ) , (MEN( 13),MT0T), 

5 ( FLAGS ( 1 ),FLAG) , (FLAGS (2),FLAG2), 

6(FLAGS(3),FLAG3),(FLAGS(4),FLAG4) 

GAS = 0. 

DSL = 0. V 

CERC=0» ' 

G =6720202020202020 
01=6420202020202020 
XK=4220202020202C20 
DC 1 1=1, Ml 
C=ICTY(I) 

IF(FUEL( I )>G) 2, 4, 2 

2 IF (FUEL( I )-Dl ) 3,5,3 

3 IF(FUEL( I )-XK) 1, 6, 1 

4 GAS = GAL(I) * 0 * HRSFUEL + GAS 
GO TO 1 

5 DSL = GAL(I) * Q * HRSFUEL ♦ DSL 
GC TO 1 

6 CERP = GAL(I) * C*HRSFUEL ♦ CERP 
1 CONTINUE 

CERO = CERP+( GAS+0SL)*.0C5 
GAGR = 7.5«(GAS+CSL) 

CRGAS = GAS/53. 

ORDSL = DRCSL/53. 

DRCERO = CERC/53. 

DRCAGR = OAGR/53. 

. WTGAS = DRGAS*376. 

WTDSL = CRCSL*430. 

WTCERO = DRCERC«400. 

WTCAGR = DROAGR*500. 

. SCGAS=DRGAS«4. 

SCDSL=DRCSL*4. 

SCCERC = DRCER0*4. 

SCCAGR = DRCAGR * 4. •,* 

CUGAS = DRGAS*1 1 . 

CUDSL = CRDSL*1 1 . 

CUCERO = DRCERG»1 1 . 

CUCAGR = DRCAGR*! 1 . 

SCUPT38 = (SCGAS+SGDSL4SCCER0+SQ0AGR)/2. 

CUUPT( 25)=CUGAS+CUCERC 

WTUPT (25 )»WTGAS+WTCERC 

CUUPT (26) =CUCSL+CUOAGP 

WTUPT(26 )=WTCSL+WTOAGR 

IF(FLAG2) 7,8,8 

7 CUUPT(27) = CUUPT(25) + CUUPT(26) 

WTUPT(27) = WTUPT(25) ♦ WTUPT(26) 

GO TO 9 
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8 L = 27 

SC = SCUPT38 
HCU = CUUPTC27) 

HWT = WTUPT(27) 

Q = HWT/IOCOO. 

HCU = CUUPT(27)/Q 
HV»T = 10000. «C 
PRINT 57 L,C,SCf HCU.HWT 
57 F0RKAT(2X, I3f F8.0,65X,F6.0,5X,F7. 1.F8.0) 

9 RETURN 

END 
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